先是看到了这幅图,觉得很好看
然后我就想做出类似的图,然后看了方法介绍;
data=read.csv(“data.csv”,header = T,sep = “,”)
ggplot(data,aes(order,origin))+geom_segment(aes(xend=order,yend=age),col=”blue”)+geom_segment(aes(x=order,y=st_age, xend=order, yend=end_age),col=”red”)+ coord_polar()
Warning messages:
1: Removed 50 rows containing missing values (geom_segment).
2: Removed 50 rows containing missing values (geom_segment).
data
order origin age st_age end_age
1 1 2 65 27 55
2 2 7 23 24 70
3 3 4 56 23 78
4 4 2 36 25 57
5 5 7 58 30 80
6 6 10 100 27 76
7 7 7 55 33 66
8 8 5 85 44 71
9 9 6 72 22 77
10 10 2 94 31 69
11 11 5 5