関数を使用して、ループで数百のグラフをプロットしていsegments()ます。以下は、2 つのグラフを作成するサンプル データです。
xy <- structure(list(NAME = structure(c(2L, 2L, 1L, 1L), .Label = c("CISCO", "JOHN"), class = "factor"), ID = c(41L, 41L, 57L, 57L), X_START_YEAR = c(1965L, 1932L, 1998L, 1956L), Y_START_VALUE = c(960L, -45L, 22L, -570L), X_END_YEAR = c(1968L, 1955L, 2002L, 1970L), Y_END_VALUE = c(960L, -45L, 22L, -570L), LC = structure(c(1L, 1L, 2L, 2L), .Label = c("CA", "US"), class = "factor")), .Names = c("NAME", "ID", "X_START_YEAR","Y_START_VALUE", "X_END_YEAR", "Y_END_VALUE", "LC"), class = "data.frame", row.names = c(NA,-4L))
ind <- split(xy,xy$ID)
# Plots
for (i in ind){
xx = unlist(i[,grep('X_',colnames(i))])
yy = unlist(i[,grep('Y_',colnames(i))])
fname <- paste0(i[1, 'ID'],'.png')
png(fname, width=1679, height=1165, res=150)
par(mar=c(6,8,6,5))
plot(xx,yy,type='n',main=unique(i[,1]), xlab="Time [Years]", ylab="Value [mm]",ylim = range(c(yy,-.5,.5)))
i <- i[,-1]
segments(i[,2],i[,3],i[,4],i[,5],lwd=2)
points(xx, yy, pch=21, bg='white', cex=0.8)
abline(h=0, col = "gray60")
dev.off()
}
私がやろうとしているのは、これを色付きのグループを持つ棒グラフに変更することです (たとえば、0 を超えるすべての値は青で、0 未満は赤で表示されます)。結果のプロットの 1 つから達成しようとしていることの視覚化を追加しました。
barplot()関数からわかるように、各棒グラフのオプションの設定にsegments()コマンド ( ) を使用できます。segments(i[,2],i[,3],i[,4],i[,5]width
私の質問:データから高さコマンドを取得するためにこれを変更する方法を知っている人はいますか? baseR で解決策を探しています。