[R] Different stack barplots - same color legends
Richard M. Heiberger
rmh @end|ng |rom temp|e@edu
Thu Nov 1 23:42:07 CET 2018
## reminder on how the levels= argument to factor works
mydata <- matrix(1:8, nrow=4, ncol=2, dimnames=list(letters[1:4],
LETTERS[1:2]))
dput(mydata)
Factor.wrong <- factor(c("mm", "cm", "m", "km"))
levels(Factor.wrong) ## alphabetical order, not meaning order
Factor.right <- factor(c("mm", "cm", "m", "km"),
levels=c("mm", "cm", "m", "km"))
levels(Factor.right) ## meaning order
library(HH) ## for the likert function
## dput(teamq[1:10,7:8])
teamq10x78 <-
structure(list(`Ik volg bijscholing om mijn opleiders-kwaliteiten op
peil te houden` = c("de situatie in hoge mate van toepassing is voor u
of uw supervisorengroep",
"de situatie in hoge mate van toepassing is voor u of uw supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in geringe mate van toepassing is voor u of uw supervisorengroep",
"de situatie enigszins van toepassing is voor u of uw supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in hoge mate van toepassing is voor u of uw supervisorengroep",
"de situatie in hoge mate van toepassing is voor u of uw supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw supervisorengroep"
), `Ik weet precies wat de ‘modernisering van de opleiding’ inhoudt` =
c("de situatie in hoge mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in hoge mate van toepassing is voor u of uw supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in geringe mate van toepassing is voor u of uw supervisorengroep",
"de situatie enigszins van toepassing is voor u of uw supervisorengroep",
"de situatie in geringe mate van toepassing is voor u of uw supervisorengroep",
"de situatie in geringe mate van toepassing is voor u of uw supervisorengroep",
"de situatie enigszins van toepassing is voor u of uw supervisorengroep",
"de situatie in hoge mate van toepassing is voor u of uw supervisorengroep"
)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"
))
## This is from Google translate
## Ik weet precies wat de ‘modernisering van de opleiding’ inhoudt
## I know exactly what the "modernization of the training"
## Ik volg bijscholing om mijn opleiders-kwaliteiten op peil te houden
## I follow training to keep my grades at level trainers
## ## This is your order of levels from Mon, Oct 22, 2018 at 1:30 PM
## "de situatie in zeer geringe mate van toepassing is voor u of uw
supervisorengroep"
## "de situatie in geringe mate van toepassing is voor u of uw
supervisorengroep"
## "de situatie enigszins van toepassing is voor u of uw supervisorengroep"
## "de situatie in hoge mate van toepassing is voor u of uw supervisorengroep"
## "de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep"
## ## This is from Google translate
## the situation very little applies to you or your group supervisor
## the situation slightly applies to you or your group supervisor
## the situation somewhat applies to you or your group supervisor
## the situation is highly applicable to you or your group supervisor
## the situation very largely applies to you or your group supervisor
sapply(teamq10x78, table)
likert(t(sapply(teamq10x78, table)))
likert(t(sapply(teamq10x78, table)),
auto.key=list(columns=1, border=TRUE),
main="character values are sorted alphabetically, we will use
factors in the next figure")
object.size(teamq10x78)
## more rows
object.size(rbind(teamq10x78,teamq10x78,teamq10x78,teamq10x78,teamq10x78,
teamq10x78,teamq10x78,teamq10x78,teamq10x78,teamq10x78,
teamq10x78,teamq10x78,teamq10x78,teamq10x78,teamq10x78,
teamq10x78,teamq10x78,teamq10x78,teamq10x78,teamq10x78))
situatie.levels <- c(
"de situatie in zeer geringe mate van toepassing is voor u of uw
supervisorengroep",
"de situatie in geringe mate van toepassing is voor u of uw
supervisorengroep",
"de situatie enigszins van toepassing is voor u of uw supervisorengroep",
"de situatie in hoge mate van toepassing is voor u of uw supervisorengroep",
"de situatie in zeer hoge mate van toepassing is voor u of uw
supervisorengroep")
teamf <- tibble::as.tibble(
lapply(teamq10x78,
function(x, levels) factor(x, levels=levels),
levels=situatie.levels)
)
names(teamf) <- names(teamq10x78) ## lapply replaced space and quote
characters with "."
## and each column is a factor with properly ordered labels.
sapply(teamf, class)
sapply(teamf, levels) ## all five levels appear even though this
example observed only four
object.size(teamf) ## bigger here
## significantly smaller for more rows
object.size(rbind(teamf,teamf,teamf,teamf,teamf,
teamf,teamf,teamf,teamf,teamf,
teamf,teamf,teamf,teamf,teamf,
teamf,teamf,teamf,teamf,teamf))
sapply(teamf, table) ## these are the counts of responses by question
likert(t(sapply(teamf, table)),
auto.key=list(columns=1, border=TRUE),
main="the middle group enigszins is by default split equally
between negative and positive")
likert(t(sapply(teamf, table)),
auto.key=list(columns=1, border=TRUE),
main="based on your color scheme, I am putting enigszins on the
negative side",
ReferenceZero=3.5,
col=c("yellow","sandybrown","orange", "darkolivegreen","green"))
## I am adding a third question with some "zeer geringe" values
teamf[,"Extra Question"] <- teamf[,2]
teamf[1:2, 3] <- situatie.levels[1]
likert(t(sapply(teamf, table)),
auto.key=list(columns=1, border=TRUE),
main="based on your color scheme, I am putting enigszins on the
negative side",
ReferenceZero=3.5,
col=c("yellow","sandybrown","orange", "darkolivegreen","green"))
## I find the color scheme unsatisfactory.
## The break point between sandybrown and orange is not distinct.
## I would prefer a darker green on the right side.
## try
RColorBrewer::display.brewer.all()
## and see if sny of them work for you.
display.brewer.pal(6, "RdYlGn")
RYG5 <- brewer.pal(6, "RdYlGn")[-4]
likert(t(sapply(teamf, table)),
auto.key=list(columns=1, border=TRUE),
main="based on your color scheme, I am putting enigszins on the
negative side",
ReferenceZero=3.5,
col=RYG5)
On Wed, Oct 31, 2018 at 5:56 PM, P. Roberto Bakker
<robertobakker using gmail.com> wrote:
> Hi Rich,
>
> Thank you for your answer.
> The sentences are strings (likert scale: 'the situation is highly applicable
> to me' etc - in Dutch), or column labels; it may be confusing as it is in
> Dutch. Below I show you part of the dataframe with my annotation added
> (string/column lable) to give you an idea.
> I need to change the likert strings into numeric (1:5). And this is a
> challenge somehow.
> With dplyr, plyr it did not work.
> After I have the numeric version then I can stack them as suggested by
> David.
>
> PART OF THE DATAFRAME
>>> >>>> > `Ik volg bijscholing om mijn opleiders-kwaliteiten op peil te
>>> >>>> > houden` COLUMN LABEL
>>> >>>> >
>>> >>>> > <chr>
>>> >>>> >
>>> >>>> > 1 de situatie in hoge mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > 2 de situatie in zeer hoge mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > 3 de situatie in zeer hoge mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > 4 de situatie in geringe mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > `Ik weet precies wat de ‘modernisering van de opleiding’
>>> >>>> > inhoudt` COLUMN LABEL
>>> >>>> >
>>> >>>> > <chr>
>>> >>>> >
>>> >>>> > 1 de situatie in hoge mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > 2 de situatie in zeer hoge mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > 3 de situatie in zeer hoge mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>>> >>>> > 4 de situatie in geringe mate van toepassing is voor u of uw
>>> >>>> > supervisorengroep LIKERT STRING
>
>
>
> Op wo 31 okt. 2018 om 20:28 schreef Richard M. Heiberger <rmh using temple.edu>:
>>
>> What you sent looks like a set of column labels, not the actual numeric
>> data.
>>
>> You might want to convert them to factors where you control the order
>> of the levels.
>> > Factor.wrong <- factor(c("mm", "cm", "m", "km"))
>> > levels(Factor.wrong) ## alphabetical order, not meaning order
>> [1] "cm" "km" "m" "mm"
>> >
>> > Factor.right <- factor(c("mm", "cm", "m", "km"),
>> + levels=c("mm", "cm", "m", "km"))
>> > levels(Factor.right) ## meaning order
>> [1] "mm" "cm" "m" "km"
>>
>> Or you might want to construct a matrix of counts of your data and plot
>> that.
>>
>> Rich
>>
>>
>> On Wed, Oct 31, 2018 at 1:53 PM, P. Roberto Bakker
>> <robertobakker using gmail.com> wrote:
>> > This is part of the output text
>> >
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep", STRING
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep", STRING
>> > "de situatie enigszins van toepassing is voor u of uw
>> > supervisorengroep", STRING
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep" STRINK
>> > ), `Ik waardeer de inbreng van de aios in de afdelingsvergadering`
>> > COLUMN LABEL= c("de
>> > situatie in hoge mate van toepassing is voor u of uw supervisorengroep",
>> > STRING
>>
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in zeer hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in zeer hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie enigszins van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in zeer hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in zeer hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in zeer hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie enigszins van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> > "de situatie in hoge mate van toepassing is voor u of uw
>> > supervisorengroep",
>> >
>> > Op wo 31 okt. 2018 om 16:24 schreef Richard M. Heiberger
>> > <rmh using temple.edu>:
>> >>
>> >> part is fine. just be sure that the small part causes the problem.
>> >> I will need that to investigate what is happening.
>> >>
>> >>
>> >> On Wed, Oct 31, 2018 at 11:15 AM, P. Roberto Bakker
>> >> <robertobakker using gmail.com> wrote:
>> >> > It is a very long result text. I can send it to you, or is part of it
>> >> > ok?[
>> >> >
>> >> > Op wo 31 okt. 2018 om 14:27 schreef Richard M. Heiberger
>> >> > <rmh using temple.edu>:
>> >> >>
>> >> >> Please send me the
>> >> >> dput(teamq)
>> >> >>
>> >> >>
>> >> >> On Wed, Oct 31, 2018 at 03:51 P. Roberto Bakker
>> >> >> <robertobakker using gmail.com>
>> >> >> wrote:
>> >> >>>
>> >> >>> Thank you for you information. Package 'HH' is interesting.
>> >> >>>
>> >> >>> Now I find another problem when using 'likert(teamq)'
>> >> >>> I get an error message:
>> >> >>> > likert(teamq)
>> >> >>> Error in dimnames(x) <- `*vtmp*` :
>> >> >>> length of 'dimnames' [2] not equal to array extent
>> >> >>>
>> >> >>> I checked:
>> >> >>> > dim(teamq)
>> >> >>> [1] 4 2
>> >> >>> > ncol(teamq)
>> >> >>> [1] 2
>> >> >>> So it should be good.
>> >> >>>
>> >> >>> I used 'make.names' , in case the spaces in the variable names
>> >> >>> would
>> >> >>> be a
>> >> >>> problem.
>> >> >>> Same error.
>> >> >>>
>> >> >>> What could I do?
>> >> >>>
>> >> >>> Best and thank you in advance.
>> >> >>> Roberto
>> >> >>>
>> >> >>>
>> >> >>> Op ma 22 okt. 2018 om 20:10 schreef Richard M. Heiberger
>> >> >>> <rmh using temple.edu>:
>> >> >>>>
>> >> >>>> Try the likert function in
>> >> >>>> install.packages("HH) ## if necessary
>> >> >>>> library(HH)
>> >> >>>>
>> >> >>>> Then using David Carlson's example teamq
>> >> >>>> likert(teamq)
>> >> >>>>
>> >> >>>> Your example in the 1:30PM (Eastern Daylight Time) doesn't work.
>> >> >>>> Error in revalue(teamq, c(`de situatie in zeer geringe mate van
>> >> >>>> toepassing is\nvoor u of uw supervisorengroep` = "1", :
>> >> >>>> x is not a factor or a character vector.
>> >> >>>>
>> >> >>>> There are many examples in
>> >> >>>> ?likert
>> >> >>>>
>> >> >>>> Rich
>> >> >>>>
>> >> >>>>
>> >> >>>> On Mon, Oct 22, 2018 at 1:30 PM, P. Roberto Bakker
>> >> >>>> <robertobakker using gmail.com> wrote:
>> >> >>>> > Dear David,
>> >> >>>> >
>> >> >>>> > Thank you for you quite response.
>> >> >>>> > My apologies for not giving some sample data - this is due to
>> >> >>>> > AVG.
>> >> >>>> > *But this minisample should not be a problem (all in Dutch)*:
>> >> >>>> > teamq
>> >> >>>> > # A tibble: 4 x 2
>> >> >>>> > `Ik volg bijscholing om mijn opleiders-kwaliteiten op peil te
>> >> >>>> > houden`
>> >> >>>> >
>> >> >>>> > <chr>
>> >> >>>> >
>> >> >>>> > 1 de situatie in hoge mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > 2 de situatie in zeer hoge mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > 3 de situatie in zeer hoge mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > 4 de situatie in geringe mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > `Ik weet precies wat de ‘modernisering van de opleiding’
>> >> >>>> > inhoudt`
>> >> >>>> >
>> >> >>>> > <chr>
>> >> >>>> >
>> >> >>>> > 1 de situatie in hoge mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > 2 de situatie in zeer hoge mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > 3 de situatie in zeer hoge mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> > 4 de situatie in geringe mate van toepassing is voor u of uw
>> >> >>>> > supervisorengroep
>> >> >>>> >
>> >> >>>> > As you see the likert items are in words, and I should change
>> >> >>>> > them
>> >> >>>> > in
>> >> >>>> > nummeric - Am I correct?
>> >> >>>> >
>> >> >>>> > *To do this, I tried (see further below):*
>> >> >>>> > plyr rename() ; I receive the message it should be a factor or
>> >> >>>> > character
>> >> >>>> > dplyr recode() ; same message
>> >> >>>> > mapvalues() ; it should be atomic, so I used as.atomic(teamq)
>> >> >>>> > but
>> >> >>>> > then
>> >> >>>> > I
>> >> >>>> > receive the nummers a strings.
>> >> >>>> >
>> >> >>>> > *The syntaxes*
>> >> >>>> > require(plyr)
>> >> >>>> > example2 <- revalue(teamq,
>> >> >>>> > c("de situatie in zeer geringe mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor u of uw supervisorengroep"= "1",
>> >> >>>> > "de situatie in geringe mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor
>> >> >>>> > u of uw supervisorengroep"= "2",
>> >> >>>> > "de situatie enigszins van toepassing is
>> >> >>>> > voor
>> >> >>>> > u of
>> >> >>>> > uw supervisorengroep"= "3",
>> >> >>>> > "de situatie in hoge mate van toepassing
>> >> >>>> > is
>> >> >>>> > voor u
>> >> >>>> > of uw supervisorengroep"= "4",
>> >> >>>> > "de situatie in zeer hoge mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor u of uw supervisorengroep"= "5"))
>> >> >>>> >
>> >> >>>> > require(dplyr)
>> >> >>>> > example2 <- recode(teamq,
>> >> >>>> > c("de situatie in zeer geringe mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor u of uw supervisorengroep"= "1",
>> >> >>>> > "de situatie in geringe mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor u
>> >> >>>> > of uw supervisorengroep"= "2",
>> >> >>>> > "de situatie enigszins van toepassing is
>> >> >>>> > voor
>> >> >>>> > u
>> >> >>>> > of uw
>> >> >>>> > supervisorengroep"= "3",
>> >> >>>> > "de situatie in hoge mate van toepassing
>> >> >>>> > is
>> >> >>>> > voor
>> >> >>>> > u of
>> >> >>>> > uw supervisorengroep"= "4",
>> >> >>>> > "de situatie in zeer hoge mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor
>> >> >>>> > u of uw supervisorengroep"= "5"))
>> >> >>>> >
>> >> >>>> > mapvalues(as.matrix(teamq), from = c("de situatie in zeer
>> >> >>>> > geringe
>> >> >>>> > mate
>> >> >>>> > van
>> >> >>>> > toepassing is voor u of uw supervisorengroep",
>> >> >>>> > "de situatie in geringe mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor
>> >> >>>> > u of uw supervisorengroep",
>> >> >>>> > "de situatie enigszins van toepassing is
>> >> >>>> > voor
>> >> >>>> > u of
>> >> >>>> > uw supervisorengroep",
>> >> >>>> > "de situatie in hoge mate van toepassing
>> >> >>>> > is
>> >> >>>> > voor u
>> >> >>>> > of uw supervisorengroep",
>> >> >>>> > "de situatie in zeer hoge mate van
>> >> >>>> > toepassing
>> >> >>>> > is
>> >> >>>> > voor u of uw supervisorengroep"),
>> >> >>>> > to = c(1,2,3,4,5))
>> >> >>>> >
>> >> >>>> > What should I do?
>> >> >>>> > Thank you in advance, Roberto
>> >> >>>> >
>> >> >>>> > Op ma 22 okt. 2018 om 17:13 schreef David L Carlson
>> >> >>>> > <dcarlson using tamu.edu>:
>> >> >>>> >
>> >> >>>> >> Your example is not reproducible since you did not give us some
>> >> >>>> >> sample
>> >> >>>> >> data. I suspect that your data frame consists of columns that
>> >> >>>> >> represent
>> >> >>>> >> questions and rows that represent individuals who answered the
>> >> >>>> >> questions.
>> >> >>>> >> First create a simple example:
>> >> >>>> >>
>> >> >>>> >> set.seed(42)
>> >> >>>> >> teamq <- data.frame(V1=sample(c(1, 2, 4, 5), 25, replace =
>> >> >>>> >> TRUE),
>> >> >>>> >> V2=sample(c(1, 2, 3, 4, 5), 25, replace=TRUE),
>> >> >>>> >> V3=sample(c(2, 3, 4, 5), 25, replace=TRUE))
>> >> >>>> >>
>> >> >>>> >> Notice that this data frame ONLY contains questions (and only 3
>> >> >>>> >> questions). Here are 2 ways to get what you want. The first one
>> >> >>>> >> stacks the
>> >> >>>> >> data:
>> >> >>>> >>
>> >> >>>> >> teamq.stack <- stack(teamq)
>> >> >>>> >> str(teamq.stack)
>> >> >>>> >> counts <- table(teamq.stack)
>> >> >>>> >> str(counts)
>> >> >>>> >>
>> >> >>>> >> The second one converts each column to a factor with levels 1 -
>> >> >>>> >> 5:
>> >> >>>> >>
>> >> >>>> >> teamq2 <- data.frame(lapply(teamq, factor, levels=1:5))
>> >> >>>> >> str(teamq2)
>> >> >>>> >> counts <- sapply(teamq2, table)
>> >> >>>> >> str(counts)
>> >> >>>> >>
>> >> >>>> >> Now make the plots:
>> >> >>>> >>
>> >> >>>> >> cols <- c("yellow","sandybrown","orange",
>> >> >>>> >> "darkolivegreen","green")
>> >> >>>> >> barplot(counts[, 1], horiz=TRUE, col=cols, legend=TRUE)
>> >> >>>> >> barplot(counts[, 2], horiz=TRUE, col=cols, legend=TRUE)
>> >> >>>> >> barplot(counts[, 3], horiz=TRUE, col=cols, legend=TRUE)
>> >> >>>> >>
>> >> >>>> >> You will need to adjust the xlim= argument so that the legend
>> >> >>>> >> does
>> >> >>>> >> not
>> >> >>>> >> print on top of the bars.
>> >> >>>> >>
>> >> >>>> >> ----------------------------------------
>> >> >>>> >> David L Carlson
>> >> >>>> >> Department of Anthropology
>> >> >>>> >> Texas A&M University
>> >> >>>> >> College Station, TX 77843-4352
>> >> >>>> >>
>> >> >>>> >>
>> >> >>>> >> -----Original Message-----
>> >> >>>> >> From: R-help <r-help-bounces using r-project.org> On Behalf Of P.
>> >> >>>> >> Roberto
>> >> >>>> >> Bakker
>> >> >>>> >> Sent: Monday, October 22, 2018 9:04 AM
>> >> >>>> >> To: R mailing list <r-help using r-project.org>
>> >> >>>> >> Subject: [R] Different stack barplots - same color legends
>> >> >>>> >>
>> >> >>>> >> Hi,
>> >> >>>> >>
>> >> >>>> >> I want to make barplots from different questions (columns) in
>> >> >>>> >> one
>> >> >>>> >> data.frame.
>> >> >>>> >> Each question has the same 5 likert items.
>> >> >>>> >> Now the problem: in some questions all items are answered; in
>> >> >>>> >> other
>> >> >>>> >> less.
>> >> >>>> >> From the syntax below I get nice stack barplots - *but the
>> >> >>>> >> legend
>> >> >>>> >> colors do
>> >> >>>> >> not* refer to the same likert-item, which I understand - the
>> >> >>>> >> colors
>> >> >>>> >> go in
>> >> >>>> >> sequence along the table.
>> >> >>>> >> Question: how can I write a syntax that each likert-item has
>> >> >>>> >> the
>> >> >>>> >> same
>> >> >>>> >> legend color?
>> >> >>>> >> Thank you in advance,
>> >> >>>> >>
>> >> >>>> >> Roberto
>> >> >>>> >>
>> >> >>>> >> SYNTAX:
>> >> >>>> >> counts19 <- table(teamq[,19])
>> >> >>>> >> counts20 <- table(teamq[,20])
>> >> >>>> >> barplot(as.matrix(counts19), horiz = T,
>> >> >>>> >> col=c("yellow","sandybrown","orange",
>> >> >>>> >> "darkolivegreen","green"),
>> >> >>>> >> legend=T)
>> >> >>>> >> barplot(as.matrix(counts20), horiz = T,
>> >> >>>> >> col=c("yellow","sandybrown","orange",
>> >> >>>> >> "darkolivegreen","green"),
>> >> >>>> >> legend=T)
>> >> >>>> >>
>> >> >>>> >> [[alternative HTML version deleted]]
>> >> >>>> >>
>> >> >>>> >> ______________________________________________
>> >> >>>> >> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more,
>> >> >>>> >> see
>> >> >>>> >> https://stat.ethz.ch/mailman/listinfo/r-help
>> >> >>>> >> PLEASE do read the posting guide
>> >> >>>> >> http://www.R-project.org/posting-guide.html
>> >> >>>> >> and provide commented, minimal, self-contained, reproducible
>> >> >>>> >> code.
>> >> >>>> >>
>> >> >>>> >
>> >> >>>> > [[alternative HTML version deleted]]
>> >> >>>> >
>> >> >>>> > ______________________________________________
>> >> >>>> > R-help using r-project.org mailing list -- To UNSUBSCRIBE and more,
>> >> >>>> > see
>> >> >>>> > https://stat.ethz.ch/mailman/listinfo/r-help
>> >> >>>> > PLEASE do read the posting guide
>> >> >>>> > http://www.R-project.org/posting-guide.html
>> >> >>>> > and provide commented, minimal, self-contained, reproducible
>> >> >>>> > code.
More information about the R-help
mailing list