我试图在函数内使用ggplot
,但我无法生成
地 block 。具体来说,我想确定情节是否
将从函数调用中使用facet_grid()
。这是我的数据:
mydf <- data.frame(
group = rep(c("g1", "g2"), each = 16, times = 1),
cluster = rep(c("c1", "c2"), each = 8, times = 2),
score1 = c(rnorm(n = 16, mean = 10, sd = 10), rnorm(n = 16, mean = 18, sd = 10)),
score2 = c(rnorm(n = 16, mean = 50, sd = 10), rnorm(n = 16, mean = 33, sd = 10))
)
这是函数:
myFunc <- function(data, group = NULL, group2, var1, var2) {
# So we don't need quotation marks in function call
arguments <- as.list(match.call())
var1 = eval(arguments$var1, data)
var2 = eval(arguments$var2, data)
group2 = eval(arguments$cluster, data)
grouping = eval(arguments$group, data)
# Make this graph if no faceting needed
if (length(grouping) == 0) {
means <- aggregate(cbind(var1, var2) ~ group2, FUN = mean, data = data)
ggplot(data, aes(x = var1, y = var2, color = group2, label = group2)) +
stat_ellipse(type = "norm", show.legend = FALSE, geom = "polygon", alpha = 0.1) +
geom_text(alpha = 0.5, show.legend = FALSE) +
geom_text(data = means, aes(x = var1, y = var2, color = group2))
# Use faceting
} else if (length(grouping) > 0) {
means <- aggregate(cbind(var1, var2) ~ grouping + group2, FUN = mean, data = data)
# Plot
ggplot(data, aes(x = var1, y = var2, color = group2, label = group2)) +
stat_ellipse(type = "norm", show.legend = FALSE, geom = "polygon", alpha = 0.1) +
geom_text(alpha = 0.5, show.legend = FALSE) +
geom_text(data = means, aes(x = var1, y = var2, color = group2)) +
facet_grid(. ~ grouping)
}
}
我像这样调用该函数:
myFunc(data = mydf, group = NULL, group2 = cluster, var1 = score1, var2 = score2)
myFunc(data = mydf, group = group, group2 = cluster, var1 = score1, var2 = score2)
两个调用分别给出以下错误:
# Error 1
Error: Aesthetics must be either length 1 or the same as the data (32): x, y, colour, label
# Error 2
Error in combine_vars(data, params$plot_env, cols, drop = params$drop) :
At least one layer must contain all variables used for facetting
可以通过手动构建图来获得预期输出:
means <- aggregate(cbind(score1, score2) ~ group + cluster, FUN = mean, data = mydf)
# without facet
ggplot(mydf, aes(x = score1, y = score2, color = cluster, label = cluster)) +
stat_ellipse(type = "norm", show.legend = FALSE, geom = "polygon", alpha = 0.1) +
geom_text(alpha = 0.5, show.legend = FALSE) +
geom_text(data = means, aes(x = score1, y = score2, color = cluster))
# with facet
ggplot(mydf, aes(x = score1, y = score2, color = cluster, label = cluster)) +
stat_ellipse(type = "norm", show.legend = FALSE, geom = "polygon", alpha = 0.1) +
geom_text(alpha = 0.5, show.legend = FALSE) +
geom_text(data = means, aes(x = score1, y = score2, color = cluster)) +
facet_grid(. ~ group)
最佳答案
这是使用和不使用 facet_grid
的基本 stat_ellipse
绘图。我会让你添加装饰。这里,列名保留为字符串,因此使用 aes_string
而不是 aes
,并且使用 as.formula
将公式传递给函数。
myFunc <- function(df, var1, var2, group2, group1 = NULL) {
# Make this graph if no faceting needed
if (is.null(group1)) {
means_formula <- as.formula(paste(var1, "+", var2, "~", group2))
means <- aggregate(means_formula, FUN = mean, data = df)
p <- ggplot(df,
aes_string(x = var1, y = var2, color = group2, label = group2)) +
stat_ellipse(type = "norm", show.legend = FALSE,
geom = "polygon", alpha = 0.1)
}else{
means_formula <- as.formula(paste(var1,"+",var2,"~", group2,"+",group1))
means <- aggregate(means_formula, FUN = mean, data = df)
p <- ggplot(df,
aes_string(x = var1, y = var2, color = group2, label = group2)) +
stat_ellipse(type = "norm", show.legend = FALSE,
geom = "polygon", alpha = 0.1) +
facet_grid(as.formula(paste(".~ ",group1)))
}
print(p)
}
myFunc(df = mydf, var1 = "score1", var2 = "score2",
group2 = "cluster", group1 = NULL)
myFunc(df = mydf, var1 = "score1", var2 = "score2",
group2 = "cluster", group1 = "group")
关于r - 无法在函数内对 ggplot 使用分面,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42177600/