使用单个栏从标准条形图(或ggplot2 geom_col)创建图标

时间:2019-07-09 13:42:21

标签: r ggplot2 r-leaflet

我想用单杠(从标准barplot或ggplot2 geom_col)创建png图标。图标将显示在传单地图上。有data.frame:lat,lon,val。参数“ val”用于设置条形的高度(一个图标上只有一个条形)。图标必须具有相同的大小,条形必须具有相同的宽度,每个条形的标签上方均应(val)。栏的高度受最大值(图标高度)的限制。

Example image - map with icons to be reconstructed

示例代码如下。我从这里使用了提示: R Barplot with one bar - how to plot correctly

带有我的代码的结果-都具有相同的高度

lats = c(69.5, 70.0, 69.0) 
lons = c(33.0,33.5,34.3) 
vals = c(7,19,5) 
df = data.frame(lats, lons, vals)

for (i in 1:3) {
      png(file=paste0(i,".png"), width=100, height=200, res=72)
      bp <- barplot(df$vals[i], height =df$vals[i],
                    width=0.2, xlim=c(0,1.2), col="brown4", axes=FALSE);
      text(bp, 10*df$vals[i]+10, labels=df$vals[i]);
      dev.off()
}

1 个答案:

答案 0 :(得分:0)

我使用@Axeman的建议,并使用png / barplot参数进行了一些实验。 问题解决了。结果如下。

# In the repo's working directory
for branch in $(git branch -a|grep -v remotes|sed 's/\*//g'); do
  echo "I am in branch: ${branch}"
  git checkout ${branch}
  find . -type f -name '*.md'
done