gggplot 2-在圖外注釋我想把樣本大小值和圖上的點(diǎn)聯(lián)系起來。我可以用geom_text將數(shù)字定位到接近點(diǎn)的位置，但這是混亂的。如果沿著地塊的外部邊緣把他們排成一排，那就更干凈了。例如，我有：df=data.frame(y=c("cat1","cat2","cat3"),x=c(12,10,14),n=c(5,15,20))ggplot(df,aes(x=x,y=y,label=n))+geom_point()+geom_text(size=8,hjust=-0.5)產(chǎn)生這個(gè)情節(jié)：我更喜歡這樣的東西：我知道我可以創(chuàng)建第二個(gè)情節(jié)grid.arrange(A)a la這個(gè)職位)但是，確定textGrobs與y軸之間的間距是很繁瑣的。有更簡單的方法嗎？謝謝!
3 回答
LEATH
TA貢獻(xiàn)1936條經(jīng)驗(yàn) 獲得超7個(gè)贊
annotation_customggplot2
library (ggplot2)library(grid)df=data.frame(y=c("cat1","cat2","cat3"),x=c(12,10,14),n=c(5,15,20))p <- ggplot(df, aes(x,y)) + geom_point() +
# Base plot
theme(plot.margin = unit(c(1,3,1,1), "lines")) # Make room for the grobfor (i in 1:length(df$n)) {p <- p + annotation_custom(
grob = textGrob(label = df$n[i], hjust = 0, gp = gpar(cex = 1.5)),
ymin = df$y[i], # Vertical position of the textGrob
ymax = df$y[i],
xmin = 14.3, # Note: The grobs are positioned outside the plot area
xmax = 14.3)
} # Code to override clippinggt <- ggplot_gtable(ggplot_build(p))gt$layout$clip[gt$layout$name == "panel"] <- "off"grid.draw(gt)
白豬掌柜的
TA貢獻(xiàn)1893條經(jīng)驗(yàn) 獲得超10個(gè)贊
基于grid
require(grid)
df = data.frame(y = c("cat1", "cat2", "cat3"), x = c(12, 10, 14), n = c(5, 15, 20))
p <- ggplot(df, aes(x, y)) + geom_point() + # Base plot
theme(plot.margin = unit(c(1, 3, 1, 1), "lines"))
p
grid.text("20", x = unit(0.91, "npc"), y = unit(0.80, "npc"))
grid.text("15", x = unit(0.91, "npc"), y = unit(0.56, "npc"))
grid.text("5", x = unit(0.91, "npc"), y = unit(0.31, "npc"))
- 3 回答
- 0 關(guān)注
- 1635 瀏覽
添加回答
舉報(bào)
0/150
提交
取消