繪製geom_line（）和geom_point（） - 不同長度的數據

Question

我試圖在ggplot中繪製一個時間序列，這樣每年的值與geom_line（）相關聯，並且總計在單獨的geom_point（） x軸。

我試圖審美子集內的數據，但得到的錯誤：

Aesthetics must be either length 1 or the same as the data (1): x, y 

我也曾嘗試使用兩種不同的數據幀，但得到了類似的錯誤。對不起，如果這是一個基本的問題，但我沒有找到解決方案的運氣。

請參閱下面的啞數據集和ggplot2腳本。我希望最終的情節看起來像這樣，但沒有連接'2017'和'total'的行，最好不用訴諸在Adobe Illustrator中編輯輸出！

任何幫助表示讚賞。

library(ggplot2) 

##synthetic data 
Year <- seq(1996,2017) 
var1 <- sample(0:10,length(Year), replace=TRUE) 
var2 <- sample(0:10,length(Year), replace=TRUE) 
var3 <- sample(0:10,length(Year), replace=TRUE) 
var4 <- sample(0:10,length(Year), replace=TRUE) 
total <- c("total",sample(0:10,4, replace=TRUE)) 


dat <- data.frame(Year, var1,var2,var3,var4) 
dat <- rbind(dat,total) 


plt <- ggplot(data=dat, aes(x=Year)) 
plt <- plt + 
    geom_point(aes(y=var1, colour = "var1")) + 
    geom_point(aes(y=var2, colour = "var2")) + 
    geom_point(aes(y=var3, colour= "var3")) + 
    geom_point(aes(y=var4, colour = "var4")) + 
    geom_line(aes(y=var1, group=1, colour = "var1")) + 
    geom_line(aes(y=var2, group=1, colour="var2")) + 
    geom_line(aes(y=var3, group=1, colour="var3"))+ 
    geom_line(aes(y=var4, group=1, colour= "var4")) + 
    scale_colour_manual("", 
     breaks = c("var1", "var2", "var3", "var4"), 
     values = c("#d7191c","#fdae61","#abd9e9","#2c7bb6")) 

Answer 1

解決方案我去，作爲Twitter

library(dplyr) 
mdat <- melt(dat, id.vars = 'Year') 
ggplot(data=mdat, aes(x= (Year), y = value, col = variable, group=variable))+ 
    geom_point()+ 
    geom_line(data=filter(mdat,Year != 'total')) 

Answer 2

最好將總數據保留在另一個data.frame中。重塑數據大大簡化了ggplot命令。

##reshape data 
dat <- data.frame(Year, var1,var2,var3,var4) 
dat <- tidyr::gather(dat, key = var, value = value, -Year) 

##data.frames of totals 
total <- data.frame(Year = max(Year) + 1, var = paste0("var", 1:4), value = sample(0:10,4, replace=TRUE)) 

dat <- rbind(dat,total) 


plt <- ggplot(data=dat, aes(x=Year, y = value, colour = var)) + 
    geom_point() + 
    geom_line() + 
    geom_point(data = total) + 
    scale_colour_manual("", values = c("#d7191c","#fdae61","#abd9e9","#2c7bb6")) + 
    ##change xaxis to show "total" 
    scale_x_continuous(breaks = c(seq(min(dat$Year), max(dat$Year), 2), total$Year[1]), 
        labels = c(seq(min(dat$Year), max(dat$Year), 2), "Total")) 


plt