gpt4 book ai didi

r - 仅绘制 fiddle 图的一侧/一半

转载 作者:行者123 更新时间:2023-12-04 10:47:16 24 4
gpt4 key购买 nike

我想要只有一半的 fiddle 图(类似于 ggridges 的 stat_density_ridges 创建的图)。 MWE

library(ggplot2)

dframe = data.frame(val = c(), group = c())
for(i in 1:5){
offset = i - 3
dframe = rbind(dframe,
data.frame(val = rnorm(n = 50, mean = 0 - offset), group = i)
)
}
dframe$group = as.factor(dframe$group)

ggplot(data = dframe, aes(x = group, y = val)) +
geom_violin()

产生这样的情节

enter image description here

我虽然想要一个看起来像这样的:

enter image description here

理想情况下,这些图也可以缩放到宽度的 1.5 到 2 倍。

最佳答案

@David Robinson 提供了一个简洁的解决方案(原始代码来自他的 gists,我只做了一些修改)。

他根据 fiddle 图的宽度变化创建了新层( GeomFlatViolin ):

data <- transform(data, 
xmaxv = x,
xminv = x + violinwidth * (xmin - x))

这一层也有 width争论。

例子:
# Using OPs data
# Get wanted width with: geom_flat_violin(width = 1.5)
ggplot(dframe, aes(group, val)) +
geom_flat_violin()

enter image description here

代码:
library(ggplot2)
library(dplyr)


"%||%" <- function(a, b) {
if (!is.null(a)) a else b
}

geom_flat_violin <- function(mapping = NULL, data = NULL, stat = "ydensity",
position = "dodge", trim = TRUE, scale = "area",
show.legend = NA, inherit.aes = TRUE, ...) {
layer(
data = data,
mapping = mapping,
stat = stat,
geom = GeomFlatViolin,
position = position,
show.legend = show.legend,
inherit.aes = inherit.aes,
params = list(
trim = trim,
scale = scale,
...
)
)
}

GeomFlatViolin <-
ggproto("GeomFlatViolin", Geom,
setup_data = function(data, params) {
data$width <- data$width %||%
params$width %||% (resolution(data$x, FALSE) * 0.9)

# ymin, ymax, xmin, and xmax define the bounding rectangle for each group
data %>%
group_by(group) %>%
mutate(ymin = min(y),
ymax = max(y),
xmin = x - width / 2,
xmax = x)
},

draw_group = function(data, panel_scales, coord) {
# Find the points for the line to go all the way around
data <- transform(data,
xmaxv = x,
xminv = x + violinwidth * (xmin - x))

# Make sure it's sorted properly to draw the outline
newdata <- rbind(plyr::arrange(transform(data, x = xminv), y),
plyr::arrange(transform(data, x = xmaxv), -y))

# Close the polygon: set first and last point the same
# Needed for coord_polar and such
newdata <- rbind(newdata, newdata[1,])

ggplot2:::ggname("geom_flat_violin", GeomPolygon$draw_panel(newdata, panel_scales, coord))
},

draw_key = draw_key_polygon,

default_aes = aes(weight = 1, colour = "grey20", fill = "white", size = 0.5,
alpha = NA, linetype = "solid"),

required_aes = c("x", "y")
)

关于r - 仅绘制 fiddle 图的一侧/一半,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52034747/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com