作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
考虑以下data.frame
和图表:
library(ggplot2)
library(scales)
df <- data.frame(L=rep(LETTERS[1:2],each=4),
l=rep(letters[1:4],2),
val=c(96.5,1,2,0.5,48,0.7,0.3,51))
# L l val
# 1 A a 96.5
# 2 A b 1.0
# 3 A c 2.0
# 4 A d 0.5
# 5 B a 48.0
# 6 B b 0.7
# 7 B c 0.3
# 8 B d 51.0
ggplot(df,aes(x=L,y=val,fill=l)) +
geom_bar(stat="identity") +
geom_text(aes(label=percent(val/100)),position=position_stack(vjust =0.5))
position_jitter
,但它似乎与堆积的条形图不兼容。
最佳答案
我们可以创建一个新的Position
,position_jitter_stack()
。
position_jitter_stack <- function(vjust = 1, reverse = FALSE,
jitter.width = 1, jitter.height = 1,
jitter.seed = NULL, offset = NULL) {
ggproto(NULL, PositionJitterStack, vjust = vjust, reverse = reverse,
jitter.width = jitter.width, jitter.height = jitter.height,
jitter.seed = jitter.seed, offset = offset)
}
PositionJitterStack <- ggproto("PositionJitterStack", PositionStack,
type = NULL,
vjust = 1,
fill = FALSE,
reverse = FALSE,
jitter.height = 1,
jitter.width = 1,
jitter.seed = NULL,
offset = 1,
setup_params = function(self, data) {
list(
var = self$var %||% ggplot2:::stack_var(data),
fill = self$fill,
vjust = self$vjust,
reverse = self$reverse,
jitter.height = self$jitter.height,
jitter.width = self$jitter.width,
jitter.seed = self$jitter.seed,
offset = self$offset
)
},
setup_data = function(self, data, params) {
data <- PositionStack$setup_data(data, params)
if (!is.null(params$offset)) {
data$to_jitter <- sapply(seq(nrow(data)), function(i) {
any(abs(data$y[-i] - data$y[i]) <= params$offset)
})
} else {
data$to_jitter <- TRUE
}
data
},
compute_panel = function(data, params, scales) {
data <- PositionStack$compute_panel(data, params, scales)
jitter_df <- data.frame(width = params$jitter.width,
height = params$jitter.height)
if (!is.null(params$jitter.seed)) jitter_df$seed = params$jitter.seed
jitter_positions <- PositionJitter$compute_layer(
data[data$to_jitter, c("x", "y")],
jitter_df
)
data$x[data$to_jitter] <- jitter_positions$x
data$y[data$to_jitter] <- jitter_positions$y
data
}
)
ggplot(df,aes(x=L,y=val,fill=l)) +
geom_bar(stat="identity") +
geom_text(aes(label=percent(val/100)),
position = position_jitter_stack(vjust =0.5,
jitter.height = 0.1,
jitter.width = 0.3, offset = 1))
library(rlang)
position_stack_repel <- function(vjust = 1, reverse = FALSE,
offset = 1) {
ggproto(NULL, PositionStackRepel, vjust = vjust, reverse = reverse,
offset = offset)
}
PositionStackRepel <- ggproto("PositionStackRepel", PositionStack,
type = NULL,
vjust = 1,
fill = FALSE,
reverse = FALSE,
offset = 1,
setup_params = function(self, data) {
list(
var = self$var %||% ggplot2:::stack_var(data),
fill = self$fill,
vjust = self$vjust,
reverse = self$reverse,
offset = self$offset
)
},
setup_data = function(self, data, params) {
data <- PositionStack$setup_data(data, params)
data <- data[order(data$x), ]
data$to_repel <- unlist(by(data, data$x, function(x) {
sapply(seq(nrow(x)), function(i) {
(x$y[i]) / sum(x$y) < 0.1 & (
(if (i != 1) (x$y[i-1] / sum(x$y)) < 0.1 else FALSE) | (
if (i != nrow(x)) (x$y[i+1] / sum(x$y)) < 0.1 else FALSE))
})
}))
data
},
compute_panel = function(data, params, scales) {
data <- PositionStack$compute_panel(data, params, scales)
data[data$to_repel, "x"] <- unlist(
by(data[data$to_repel, ], data[data$to_repel, ]$x,
function(x) seq(x$x[1] - 0.3, x$x[1] + 0.3, length.out = nrow(x))))
data
}
)
ggplot(df,aes(x=L,y=val,fill=l)) +
geom_bar(stat="identity") +
geom_text(aes(label=percent(val/100)),
position = position_stack_repel(vjust =0.5))
关于r - 具有position_stack的抖动文本/标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50059193/
我想在 ggplot 的堆叠条旁边绘制一个带有标签的人口金字塔。我使用 position_stack(vjust=1.3) 使用下面的代码让标 checkout 现在条形的“顶部”旁边,但我不明白该命
我想生成一个带有堆叠条形图并向右移动 50%,以便刻度线位于条形之间。 library(tidyverse) df <- tribble(~Station, ~Direction1, ~Directi
我想将标签添加到堆积条形图以实现如下目标: 目标很简单:我需要在同一图表中显示与上一年相比的市场份额和变化。理论上,我只会在代码中的 geom_text 中添加“nudge_x=0.5”,但出现错误:
为什么会这样?我该如何解决这个问题? > qplot(c(0,0,0,0,1e12)) stat_bin: binwidth defaulted to range/30. Use 'binwidth
我是一名优秀的程序员,十分优秀!