Форумы GIS-Lab.info

Код: Выделить всё

ggp <- ggplot(tab, aes(x = month)) + 
geom_line(aes(y = min)) +
geom_line(aes(y = max)) +
geom_line(aes(y = min_veg)) +
geom_line(aes(y = max_veg))

ggp 
ggp + 	
geom_ribbon(aes(x = month,
ymin = min_veg,
ymax = max_veg),
fill = "gray",
alpha = 0.4)

Код: Выделить всё

library(ggplot2)

tab=data.frame(month=factor(4:10,labels=c("Apr","May","Jun","Jul","Aug","Sep","Oct"),ordered=TRUE),
              min=1:7,min_veg=1:7+1,max=7:1+10,max_veg=20)

ggp <- ggplot(tab, aes(x = month, group=1)) + geom_line(aes(y = min),linetype=2)
ggp