在 geom_bin 直方图中显示下限和上限 (ggplot2)
Show lower and upper bounds in geom_bin histogram (ggplot2)
在下面的直方图中,如何将每个 bin 的下限和上限 作为工具提示文本包含在 ggplotly 中?
library(ggplot2)
library(plotly)
csub<-data.frame(Anomaly10y = rpois(50,5))
p <- ggplot(csub,aes(x=Anomaly10y)) +
stat_bin(binwidth=1, aes(label1 = min(Anomaly10y, na.rm = T), label2 =
max(Anomaly10y, na.rm = T)))
ggplotly(p, tooltip = c("label1", "label2"))
提前致谢
也许有更好的解决方案,但您可以欺骗它,使用 geom_bar()
来获得您想要的。这是一个替代方案:
#first extract the data from stat_bin
p <- ggplot(csub,aes(x=Anomaly10y)) + stat_bin(binwidth=1)
temp <- layer_data(p, 1)
#ggplot
pp <- ggplot(data = temp, aes(x =x,y=y, label1 = xmin, label2 = xmax)) +
geom_bar(stat = 'identity', fill = "darkgrey", width = 1)
然后用 ggplotly
:
绘图
ggplotly(pp)
或
ggplotly(pp, tooltip = c("label1", "label2"))
也许有人使用此选项作为解决方案,但是:
pp <- ggplot(csub,aes(x=Anomaly10y)) +
stat_bin(binwidth=1) +
stat_bin(binwidth=1, geom="text", aes(label=..xmin..), vjust = 2) +
stat_bin(binwidth=1, geom="text", aes(label=..xmax..))
ggplotly(pp)
我只得到其中一个标签,不能同时得到两个。
在下面的直方图中,如何将每个 bin 的下限和上限 作为工具提示文本包含在 ggplotly 中?
library(ggplot2)
library(plotly)
csub<-data.frame(Anomaly10y = rpois(50,5))
p <- ggplot(csub,aes(x=Anomaly10y)) +
stat_bin(binwidth=1, aes(label1 = min(Anomaly10y, na.rm = T), label2 =
max(Anomaly10y, na.rm = T)))
ggplotly(p, tooltip = c("label1", "label2"))
提前致谢
也许有更好的解决方案,但您可以欺骗它,使用 geom_bar()
来获得您想要的。这是一个替代方案:
#first extract the data from stat_bin
p <- ggplot(csub,aes(x=Anomaly10y)) + stat_bin(binwidth=1)
temp <- layer_data(p, 1)
#ggplot
pp <- ggplot(data = temp, aes(x =x,y=y, label1 = xmin, label2 = xmax)) +
geom_bar(stat = 'identity', fill = "darkgrey", width = 1)
然后用 ggplotly
:
ggplotly(pp)
或
ggplotly(pp, tooltip = c("label1", "label2"))
也许有人使用此选项作为解决方案,但是:
pp <- ggplot(csub,aes(x=Anomaly10y)) +
stat_bin(binwidth=1) +
stat_bin(binwidth=1, geom="text", aes(label=..xmin..), vjust = 2) +
stat_bin(binwidth=1, geom="text", aes(label=..xmax..))
ggplotly(pp)
我只得到其中一个标签,不能同时得到两个。