Я пытаюсь сравнить наборы наблюдаемых и смоделированных данных для двух станций. Одна станция называется «красная», а другая — «синяя». Мне удалось создать фасеты, но когда я попытался добавить две серии в один фасет, обновился только один фасет, а другой нет.
Это означает, что для синего цвета наносится только одна серия, а для красного — две серии.
Код, который я использовал, выглядит следующим образом:
# install.packages("RCurl", dependencies = TRUE)
require(RCurl)
out <- postForm("https://dl.dropbox.com/s/ainioj2nn47sis4/watersurf1.csv?dl=1", format="csv")
watersurf <- read.csv(textConnection(out))
watersurf[1:100,]
watersurf$coupleid <- factor(rep(unlist(by(watersurf$id,watersurf$group1,
function(x) {ave(as.numeric(unique(x)),FUN=seq_along)}
)),each=6239))
p <- ggplot(data=watersurf,aes(x=time,y=data,group=id))+geom_line(aes(linetype=group1),size=1)+facet_wrap(~coupleid)
p
Можно ли также добавить на график третью серию, но неравной длины (т.е. с другим интервалом)?
Вывод: Я следовал примеру на этой странице, чтобы создать графики. http://www.ats.ucla.edu/stat/r/faq/growth.htm
ggplot(data=watersurf,aes(x=time,y=data))+geom_line()+facet_wrap(~id)
2) и те, которые заканчиваются наp
. Тогда я не уверен, чего ты хочешь. Когда я смотрю наtable(watersurf$group1, watersurf$coupleid)
, кажется, что ваш сюжет работает правильно. Не могли бы вы расширить, в чем проблема? 22.01.2013table(watersurf$group1, watersurf$coupleid)
, вы увидите, что один аспект имеет один тип данных. Я могу ошибаться, но взгляните на таблицу,table(watersurf$group1, watersurf$coupleid)
. 22.01.2013ggplot(data=watersurf,aes(x=time,y=data,group=id))+geom_line(aes(linetype=group1, colour = group1), size = 0.2)+facet_wrap(~coupleid)
, чтобы лучше рассмотреть две серии, и мне все еще кажется, что обе грани показывают одну серию. 1 — моделируемое, 2 — наблюдаемое. 22.01.2013