Displaying 2 results from an estimated 2 matches for "dateofsurvey".
2008 Sep 24
1
qplot, stacked area, own colourscheme
...one with
qplot, but I have not succeeded...
What do I have so far (I am dealing with the development of cover of
specific groups of plants):
library(ggplot2)
library(RODBC)
channel <- odbcConnect("myusername", case="tolower")
sql <- "select trial, cover_of, dateofsurvey, cover from mytable"
mydata <- (sqlQuery(channel, sql))
What I get is the following dataframe (simplified, there are more
categories, not real data):
trial cover_of dateofsurvey cover
1 ZU-316 Cover dead material 2004-09-16 0
2 ZU-316 Cover grasses 2004-09-16 16
3...
2008 Sep 25
2
ggplot, qplot in loop
...;B","C")
mycolours <- ("wheat","darkolivegreen","lightgreen",
"khaki","darkseagreen","orange","chocolate4","gray75")
for (i in 1:length(trials)) {
sql <- paste("select trial, cover_of, dateofsurvey, cover
from mytable where trial = '",trials[i],"'
mydata <- (sqlQuery(channel, sql))
mytitle <- paste("Development of Cover, ", trials[i],",sep = "")
myplot <- qplot(dateofsurvey, cover, data=mydata, geom="area",
fil...