R help - Jul 2016 - graph: horizontal bar reflecting number of data

Dear all,

I hope someone can help with my problem:

I have a dataframe like this:

datframe <-
data.frame(Name=c("Kati","Kati","Kati","Leon","Leon","Leon"
), week =c("1","2", "3",
"1","2", "3"), numberdata
=c("5","12", "1",
"6","2", "5"))
datframe

I want to create a graph like the attached one (jpg). I can't bring the 
bars to  line up by week... desperating.

(in case you don't see the jpg: I want a horizontal bar which reflects 
the number of data per week by the colour of the shading).

Can anyone help?

Tagmarie

Hi Tagmarie,
This might help:

datframe$numberdata<-as.numeric(as.character(datframe$numberdat))
library(plotrix)
barcol<-color.scale(datframe$numberdat,extremes=c("black","white"))
barplot(matrix(datframe$numberdat,nrow=2,byrow=TRUE),
 beside=TRUE, horiz=TRUE,names.arg=paste("Week",1:3),
 col=matrix(barcol,nrow=2,byrow=TRUE))

Jim


On Wed, Jul 13, 2016 at 5:59 PM, Dagmar <Ramgad82 at gmx.net>
wrote:
> Dear all,
>
> I hope someone can help with my problem:
>
> I have a dataframe like this:
>
> datframe <-
data.frame(Name=c("Kati","Kati","Kati","Leon","Leon","Leon"
),
> week =c("1","2", "3",
"1","2", "3"), numberdata
=c("5","12", "1", "6","2",
> "5"))
> datframe
>
> I want to create a graph like the attached one (jpg). I can't bring the
bars
> to  line up by week... desperating.
>
> (in case you don't see the jpg: I want a horizontal bar which reflects
the
> number of data per week by the colour of the shading).
>
> Can anyone help?
>
> Tagmarie
>
>
>
>
> ______________________________________________
> R-help at 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.

Dear all, dear Jim,

Thank you for trying to help Jim. Unfortunately it didn't solve my problem.

I want the names of the weeks on the x axis and the animals on the y-axis.

Then, the shading of the barplot is supposed to represent the number of 
data per week.

Any help?

Dagmar


Am 13.07.2016 um 13:58 schrieb Jim Lemon:
> datframe$numberdata<-as.numeric(as.character(datframe$numberdat))
> library(plotrix)
>
barcol<-color.scale(datframe$numberdat,extremes=c("black","white"))
> barplot(matrix(datframe$numberdat,nrow=2,byrow=TRUE),
>   beside=TRUE, horiz=TRUE,names.arg=paste("Week",1:3),
>   col=matrix(barcol,nrow=2,byrow=TRUE))