如何在facet中同时使用`group_by()`和`ggplot_build()`？
在R语言中，facet函数用于创建分面图，而group_by()函数用于对数据进行分组操作，ggplot_build()函数用于构建ggplot对象的数据结构。要在facet中同时使用group_by()和ggplot_build()，可以按照以下步骤进行操作：
- 首先，加载所需的包，包括
ggplot2和dplyr：
library(ggplot2)
library(dplyr)- 接下来，使用
group_by()函数对数据进行分组操作。假设我们有一个数据框df，其中包含了需要绘制的数据和分组变量group_var：
df <- data.frame(x = c(1, 2, 3, 4, 5),
y = c(2, 4, 6, 8, 10),
group_var = c("A", "A", "B", "B", "B"))
df <- df %>% group_by(group_var)- 然后，使用
ggplot_build()函数构建ggplot对象的数据结构，并将其存储在一个变量中：
p <- ggplot(df, aes(x, y)) + geom_point()
plot_data <- ggplot_build(p)- 最后，使用
facet_wrap()或facet_grid()函数将分面图添加到ggplot对象中。假设我们想要按照group_var进行分面，可以使用以下代码：
p <- p + facet_wrap(~ group_var)完整的代码示例如下：
library(ggplot2)
library(dplyr)
df <- data.frame(x = c(1, 2, 3, 4, 5),
y = c(2, 4, 6, 8, 10),
group_var = c("A", "A", "B", "B", "B"))
df <- df %>% group_by(group_var)
p <- ggplot(df, aes(x, y)) + geom_point()
plot_data <- ggplot_build(p)
p <- p + facet_wrap(~ group_var)
print(p)这样，你就可以在facet中同时使用group_by()和ggplot_build()来创建分面图了。请注意，这只是一个示例，你可以根据自己的数据和需求进行相应的修改和调整。
相关·内容
受到Q 的启发，我开始玩smooth.spline()。
特别是，我想想象参数df (自由度)是如何影响近似以及一阶和二阶导数的。请注意，这个Q不是关于近似，而是关于ggplot2可视化中的一个特定问题(或边缘情况)。
第一次尝试:简单facet_grid()
library(ggplot2)
ggplot(ap, aes(x, y)) +
geom_point(data = dp, alpha = 0.2) +
geom_line() +
facet_grid(deriv ~ df, scales = "free_y", labeller = label_bot
浏览 0提问于2017-01-08得票数 9
关于如何标出样本大小的方框图，有很多解释，包括。它们似乎都使用max(x)或median(x)来定位样本大小。
我想知道是否有一种方法可以轻松地将标签定位在绘图的顶部或底部，特别是当在facet中使用scale = "free_y"命令时，其中轴的最大值和最小值是由ggplot为每个方面自动选择的。
原因是我正在创建多个方面，其中分布很窄，面很小。如果样本大小位于plot...but的顶部或底部(我想使用"free_y“)，将更容易阅读它，因为数据中有更大跨度的方面在某些方面存在有意义的差异。
使用链接post中的一个稍微修改的示例：
# function for nu
浏览 1提问于2017-03-15得票数 1
回答已采纳
2回答
我正在使用ggplot2和facet_wrap制作几个直方图，并希望在每个面板上绘制平均值。下面，我创建一个虚拟数据框架，查找每个方面的平均值，然后使用geom_point创建添加平均值的图表。
# Load libraries
library(tidyverse)
# Toy data frame
df <- data.frame(ID = sample(letters[1:3], 100, replace = TRUE), n = runif(100))
# Mean value of each group
df_mean <- df %>% group_by(ID
浏览 0提问于2018-05-23得票数 8
回答已采纳
2回答
如何提取每个密度图的值矩阵？ 例如，我感兴趣的是当权重=71时，橙子、苹果、梨、香蕉的密度是多少？ 下面是最小的例子： library(ggplot2)
set.seed(1234)
df = data.frame(
fruits = factor(rep(c("Orange", "Apple", "Pears", "Banana"), each = 200)),
weight = round(c(rnorm(200, mean = 55, sd=5),
rnorm(200, mean=
浏览 55提问于2021-10-24得票数 1
回答已采纳
我有一个有自由鳞片的小方格。现在，我想在每个方面的相同相对位置上注释这个图。如果我知道如何得到每个方面的范围/范围的话，这是很容易做到的。问:有什么方法可以得到每个方面的刻度吗？
在下面的示例中，我手动执行了该操作。问题是如何通过使用facet_scales (这也更准确)的函数来构造a2。如果我打电话给str(a2)，它会给我一个关于a2$scales的解释。它还指出，一个有用的函数可以是get_scales()。可悲的是，我不知道如何调用这个函数。
library(ggplot2)
a <- ggplot(data = msleep, aes(x = bodywt, y = slee
浏览 1提问于2015-01-12得票数 2
回答已采纳
下面是代码和图表。
该图有三个方面。在the_plot的哪里我可以找到它有三个方面？是的，我可以从mtcars数据框架或the_plot$data中获得它，但我不想重新创建数据分析。相反，我希望检查the_plot的图形元素，这样就不必在多个地方重复应用程序逻辑。the_plot$facet没有显示任何我能识别的内容，其他的plot变量也没有。
我使用的是tidyverse 1.3.0。
library(tidyverse)
data(mtcars)
the_plot<-ggplot(mtcars, aes(mpg, disp, group=cyl)) + facet_wrap(~cyl
浏览 0提问于2020-04-21得票数 17
1回答
我想在绘制不同类别的条形图时减少杂乱。也就是说，我使用facet将相同的类别变量与其他类别变量进行比较。
例如，我使用来自reshape2的tips数据集
library(reshape2)
library(ggplot2)
ggplot(tips, aes(x=time)) +
geom_bar(shape=1) +
facet_grid(. ~ sex)
结果是：
我想要的改变是“晚餐”和“午餐”只出现在“女性”的下面。我试过了
scale_x_discrete(labels = c("with", "without", "",
浏览 2提问于2014-11-21得票数 2
以下代码
library(ggplot2)
library(reshape2)
m=melt(iris[,1:4])
ggplot(m, aes(value)) +
facet_wrap(~variable,ncol=2,scales="free_x") +
geom_histogram()
生成具有固定y轴的4个图(这就是我想要的)。但是，默认情况下，y轴只显示在刻面图的左侧(即在第1和第3图的一侧)。
怎样才能使y轴在所有4个图上显示出来呢？谢谢!
编辑:如@Roland所建议的那样，可以设置scales="free"并使用ylim(c(0,3
浏览 0提问于2013-07-01得票数 7
回答已采纳
1回答
我在一个降价报告中显示了很长的数字。
它们很长，因为它们使用ggplot2::facet_wrap，所以它们的高度取决于数据，这不是恒定的。
我可以设置块的figure.height参数，但是之后它就被修复了，我的报告看起来很糟糕。他们有办法解决这个问题吗？
示例：
---
title: "title"
author: "author"
date: '`r Sys.Date()`'
output: html_document
---
```{r, figure.height=40}
库(Dplyr)
库(Ggplot2)
虹膜%>%
mu
浏览 2提问于2018-06-27得票数 4
我能够在所有方面()之间添加垂直空间，但是不能在指定的方面之间添加一个空格？
下面是一个基于我的真实数据的例子(在真实的地块中，我有堆叠的条形图)：
mydf<-data.frame(year = rep(c(2016,2016,2016,2016,2016,2016,2017,2017,2017,2017,2017,2017),times = 2),
Area = rep(c('here','there'),times = 12),
yearArea = rep(c('here.2016'
浏览 0提问于2018-03-06得票数 4
回答已采纳
我试图在一系列手动生成的ggiNEXT图形中匹配ggplot2对象的美观。示例图如下所示，其中行的颜色和95%的置信区间是函数ggiNEXT (直接从函数帮助获取的代码)默认选择的颜色：
library(iNEXT)
library(ggplot2)
z <- iNEXT(spider, q=c(0,1,2), datatype="abundance")
ggiNEXT(z, facet.var="Assemblage", color.var="Order.q")
我想确定在默认情况下，线条和95%的置信度间隔使用什么颜色--我如
浏览 5提问于2022-11-13得票数 0
3回答
我有一个函数操作符来处理绘图错误：
library(ggplot2)
library(dplyr)
handle_plot_error <- function(f) {
tryCatch(
f,
error = function(e) plot_error(e)
)
}
plot_error <- function(error) {
ggplot(
tibble(text = str_wrap(error, 80)),
aes(x = 1, y = 1, label = text)
浏览 0提问于2021-02-25得票数 2
1回答
我试图创建一个多面冲积图，在第一轴上的图层贴上标签，左和左对齐，右边的标签被右和右对齐。
# Small working example
# Install Packages and Libraries
install.packages("ggplot2")
install.packages("ggalluvial")
install.packages("ggrepel")
library(ggplot2)
library(ggalluvial)
library(ggrepel)
# Data Frame with 2 regions, 3
浏览 1提问于2019-05-13得票数 0
回答已采纳
作为的后续，假设我这样做：
p <- ggplot(mtcars, aes(mpg)) + geom_histogram(aes(y = ..count..)) + facet_wrap(~am)
r <- print(p)
在第二行中，我调用print方法，以便在向plot对象添加其他层之前，可以通过编程方式检查它的返回值。
我的问题是:有没有办法在这一点上抑制绘图？
浏览 0提问于2012-10-11得票数 3
回答已采纳
2回答
是否有一种方法可以增加shiny中的绘图窗口大小，取决于ggplot图形中使用的方面的数量--也许是使用垂直滚动。
例如，使用下面的示例，当输入为"A"时，有三个方面，图看起来很好。当选择"B"选项时，绘图单元的数量会增加，但是绘图窗口保持相同的大小，从而导致图幅太小。
是否有一种策略使所有面板高度保持不变，不依赖于输入？谢谢。
library(ggplot2)
library(shiny)
mtcars$cyl = sample(letters[1:5], 32, TRUE)
ui <- fluidPage(
navbarPage
浏览 1提问于2018-06-18得票数 6
回答已采纳
情况是这样的，我有三组数据(例如，A、B和C)。我想绘制X和Y之间的关系，在不同的面板中的组。简单的农民：
set.seed(111)
groups = sample(c("A", "B", "C"), 1500, replace=T)
x=rnorm(1500); y = rnorm(1500, 0, sqrt(1-.25^2))
y = model.matrix(y~x*groups + I(x^2)) %*% c(0, .5, 1, 2, -.2, .2, .5) + rnorm(1500, 0, sqrt(1-.25^2))
d = da
浏览 0提问于2018-10-06得票数 3
回答已采纳
当我用参数rendPlotly绘制图表时，我试图使facet_wrap的高度更加动态。我希望确保facet_wrap图不会越过闪亮的应用程序中的窗口，并且它们之间的大小是相等的。我想动态地做这件事。有更好的方法吗？
下面是我试图运行的代码：
library(ggplot2)
library(shiny)
library(tidyverse)
library(plotly)
mtcars$cyl = sample(letters[1:5], 32, TRUE)
library(magrittr)
gg_facet_nrow <- function(p){
num_panels &l
浏览 0提问于2021-10-21得票数 0
回答已采纳
我试图使用ggplot2复制类似于此地图的内容：
这就是我到目前为止所做的：
load("mapdata.Rdata")
> ls() #2 datasets: "depth" for basemap (geom_contour) and "data" is use to construct geom_bin2d
[1] "data" "depth"
> head(data)
latitude longitude GRcounts
740 6
浏览 3提问于2014-02-25得票数 2
回答已采纳
我正在处理一个类似于以下内容的情节：
ggplot(data=mtcars, aes(x=wt, y=mpg, color=carb)) +
geom_line() + facet_grid(gear ~ .) +
ggtitle(expression("Title")) +
labs(caption = "Sources: Compustat, Author's Calculations") +
theme(plot.title = element_text(size = 20, hjust = 0.5),
plot.caption=elemen
浏览 1提问于2017-08-15得票数 0
在下面的情节中，我有一个分面网格。
是否有任何方法将两个子图的中心放在0上，同时为x轴保留不同的min/max值？
在下面的情况下，左边是xlim=c(-1,1)，右边是xlim=c(-2,2)，但是它应该是普遍适用的。
(在现实生活中，这些都是多面火山图，我想以0效应大小为中心，但对于不同的地块保持不同的x尺度)
library(ggplot2)
df = data.frame(x=c(1,2), y=c(0,0), group=c(1,2))
ggplot(df, aes(x=x, y=y)) + geom_point() + facet_wrap(~group, scale="f
浏览 4提问于2016-06-04得票数 20
回答已采纳
过去，通过关闭剪贴画就可以将文本放在情节边距上。在ggplot2_2.2.0中，在使用方面的绘图中，这似乎不再可能了(但如果没有使用方面，则仍然有效)。我已经发布了一个问题，但还没有得到解决。在此期间，任何解决办法的想法都将不胜感激！
下面是一个最小的(非)工作示例：
library(ggplot2)
library(grid)
df.plot = data.frame(x = 1, y = 1, facet = 'facet', stringsAsFactors = F)
df.text = data.frame(x = 1, y = -0.3, label = '
浏览 0提问于2016-12-09得票数 9
回答已采纳
目前，我正在ggplot2中为一个项目做一些分析，偶然发现了一些我无法解释的奇怪行为。当我编写aes(x = cyl, ...)时，如果使用aes(x = mtcars$cyl, ...)传递相同的变量，则绘图看起来与它所做的不同。当我移除facet_grid(am ~ .)时，两个图又是相同的。下面的代码是根据我的项目中生成相同行为的代码建模的：
library(dplyr)
library(ggplot2)
data = mtcars
test.data = data %>%
select(-hp)
ggplot(test.data, aes(x = test.data$c
浏览 4提问于2015-09-12得票数 18
回答已采纳
2回答
我想有一个独特的a在以下情节的每个方面。
library(dplyr)
library(ggplot2)
ggplot(mpg, aes(x = hwy, y = displ, group = 1)) +
geom_point() +
geom_line() +
facet_wrap(~ manufacturer, scales = "free")
abline只是一条横线，等于每个面上的'second to last' y值(displ)。例如，奥迪小面上的第二到最后y值是2.0，雪佛兰小面上的第二到最后y值是3.5。最大的问
浏览 2提问于2018-02-15得票数 2
回答已采纳
在阅读了不同的帖子之后，我发现了如何在密度图中添加一个vline的平均值，如所示。使用上述链接中提供的数据：
( 1)如何在使用geom_ribbon的均值附近增加95%的置信区间？CIs可以计算为
#computation of the standard error of the mean
sem<-sd(x)/sqrt(length(x))
#95% confidence intervals of the mean
c(mean(x)-2*sem,mean(x)+2*sem)
2)如何将vline限制在曲线下的区域内？在下面的图片中，你会看到曲线外的vline图。
样本数据非常接近我
浏览 3提问于2017-02-01得票数 4
回答已采纳
2回答
p <- ggplot(mtcars, aes(mpg, wt))
p + geom_point()+facet_grid(cyl ~ vs)+theme_bw()
我希望将面板(右下角1对8)设置为空白，其中不显示数据点，但同时，我希望保留这种排列。
所以facet_wrap(cyl ~ vs)不能解决我的问题。
也许更普遍的问题是，是否可以在ggplot2中安排每个面板？
浏览 0提问于2013-12-13得票数 7
回答已采纳
我想要创建一个ggplot网格，其中网格的x轴(而不是图)是标签，而不是压缩到每个图表中。
示例：
mtcars %>%
group_by(mpg) %>%
mutate(cnt = n()) %>%
ggplot(aes(x = cyl, y = cnt)) +
geom_bar(stat = "identity") +
facet_grid(vs ~ cyl)
看上去：
与其在每个图表上有3到9，我希望网格的水平部分是cyl，而不是每一个单独的图表。
换句话说，每个条形图只应该是一个单列条形图。
我该怎么做？
浏览 0提问于2018-11-01得票数 0
回答已采纳
1回答
我想使用facet_zoom()放大具有显式设置限制的轴的一部分。然而，使用scale_*(limits = *)和coord_cartesian(xlim = *)也覆盖了缩放的方面的规模，因此两者都有相同的限制。有办法绕道吗？也许我可以在极限附近添加一些数据点，然后设置它们的alpha = 0.还有其他想法吗？
library(ggplot2)
library(ggforce)
# works with no limits specified
ggplot(mpg, aes(x = hwy, y = cyl)) +
geom_point() +
facet_zoom(xlim =
浏览 0提问于2019-10-06得票数 3
我正在使用ggplot2生成一个包含三个方面的绘图。因为我正在比较两个不同的数据集，所以我希望能够使用与第一个绘图相同的y尺度来绘制第二个数据集。但是，我无法找到一种简单的方法来保存第一个绘图的设置，然后再与第二个绘图一起重用它们。因为每个面都有它自己的y尺度，所以用手为第二个图指定它们将是一件痛苦的事。有人知道快速重复使用天平的方法吗？为了使之具体化，下面是我如何首先生成我的情节：
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p + facet_wrap(~ cyl, scales = "free_y")
浏览 2提问于2014-05-15得票数 1
我有四个不同变量随时间变化的数据。我想使用facet_grid将它们组合到一个图中，其中每个变量都有自己的子图。下面的代码类似于我的数据和我表示它的方式：
require(ggplot2)
require(reshape2)
subm <- melt(economics, id='date', c('psavert','uempmed','unemploy'))
mcsm <- melt(data.frame(date=economics$date, q=quarters(economics$date)), id=&
浏览 2提问于2013-04-14得票数 5
回答已采纳
1回答
我有一个这样的填充条形图
library(dplyr)
library(ggplot2)
df <- data.frame(facet=c(rep(1,6),rep(2,6)),type=rep(c('a','b','c'),2), subtype=c('x','y'), value=c(10,20,30,10,50,70))
df %>% group_by(type, facet) %>%
mutate(pct=value/sum(value)) %>%
mutate(pos=cum
浏览 1提问于2017-01-05得票数 3
回答已采纳
我正在尝试将观察值的总数添加到我的十六进制图中，该图已经使用facet_wrap进行了分面。但我要么获取每个bin的样本号，要么由于布局的原因无法将文本放置在绘图上。 我尝试使用dplyr包中的group_by()和tally()来查找值，但无法绘制它们。 ggplot(data = chris.sale.total, aes(x = px, y = pz)) +
geom_hex() +
coord_fixed() +
strike.zone +
home.plate +
scale_fill_viridis() +
facet_wrap(~outcom
浏览 18提问于2019-04-10得票数 0
回答已采纳
我试图为生成ggplot图形的一系列函数编写一些自动化单元测试。
例如，我想为一个情节设置一个特定的颜色标度。现在我需要一种方法来确定正确的颜色刻度是否被实际应用。
背景：
下面是一些示例代码，它将fill颜色设置为使用ColourBrewer调色板Dark2
p <- ggplot(mtcars, aes(x=factor(cyl), y=mpg, fill=factor(gear))) +
geom_bar(stat="identity") +
facet_grid(~gear) +
scale_fill_brewer(palette="Dar
浏览 4提问于2012-08-02得票数 66
回答已采纳
所以我正在处理一个我想要添加最大值/最小值线的图。我已经查看了this和this，它们为我提供了非常有用的信息，但我无法从这些帖子中解读出如何准确地对我的图形执行我想要的操作。 我有一个函数，它显示了一年中特定类型的水平衡变量的峰值和谷值。我想展示当我们接近2100年时，这些变量的峰值和谷值的变化。使用the first page I linked中的代码 gb <- ggplot_build(.y_plot_bc)
exact_x_value_of_the_curve_maximum <- gb$data[[1]]$x[which(diff(sign(diff(gb$data
浏览 11提问于2020-09-23得票数 0
1回答
我想要画一个长方形的注释，它将跨越面的边框。
library(ggplot2)
myPlot <- ggplot(mpg, aes(displ, hwy)) +
geom_point() +
facet_grid(class ~ .)
# add annotation
myPlot +
annotate("rect", xmin = 3, xmax = 4, ymin = -Inf, ymax = Inf, fill = "green", alpha = 1/5)
到目前为止我所拥有的是：
我想画一个很大的矩形，它横跨小
浏览 1提问于2018-06-28得票数 10
回答已采纳
利用ggplot2和plotly实现与facet_wrap()的交互散点图。 library(ggplot2)
library(plotly)
g<-iris%>%
ggplot(aes(x = Sepal.Length, y = Sepal.Width, color = Species))+
geom_point()+
facet_wrap(vars(Species))
ggplotly(g) ? 是否可以使用plot_ly()函数进行“刻面”？文档显示subplot()... p<-iris%>%
group_by(Species)%&g
浏览 22提问于2019-09-26得票数 11
回答已采纳
我正在使用purrr和ggplot2一次创建多个图。对于每个方面的名称，我希望保留组的名称，但我还希望添加每个子组中的参与者数量。例如，"Manager (N = 200)“和"Employee (N = 3000)”。但是，当我尝试添加这个labeler参数时： facet_grid(~.data[[group]],
labeller = paste0(~.data[[group]], "(N = ", group_n$n, ")")) 我得到了这个错误： Error in cbind(labels =
浏览 22提问于2021-08-24得票数 3
回答已采纳
我只想在放大区域对图表进行注释，以提供有关突出显示的数据的详细信息。
在下面的示例代码中，其思想是仅在放大区域中显示文本"zoom only“。
require(ggplot2)
require(ggforce)
ggplot(iris, aes(Petal.Length, Petal.Width, colour = Species)) +
geom_point() +
facet_zoom(x = Species == "versicolor") +
annotate("text", x=4, y=2, label="
浏览 2提问于2017-09-30得票数 4
2回答
我有一个关于ggplot2的数据可视化问题。
我正在尝试弄清楚如何在我的density_plot中对特定区域进行着色。我用谷歌搜索了很多次，尝试了所有的解决方案。
我的代码是：
original_12 <- data.frame(sum=rnorm(100,30,5), sex=c("M","F"))
cutoff_12 <- 35
ggplot(data=original_12, aes(original_12$sum)) + geom_density() +
facet_wrap(~sex) +
geom_vline(data=orig
浏览 0提问于2017-09-28得票数 4
我不太清楚为什么在运行这段代码时会出现这个错误。如果你有什么想法，请告诉我。在}之后，我还没有成功地将参数设置为“高度”参数。
以下是代码：
library(ggplot2)
library(shiny)
library(tidyverse)
mtcars$cyl = sample(letters[1:5], 32, TRUE)
gg_facet_nrow<- function(p){
p %>% ggplot2::ggplot_build() %>%
magrittr::extract2('layout') %>%
ma
浏览 6提问于2021-10-21得票数 1
回答已采纳
有没有一种方法可以根据数据框提供的变量来填充使用facet_wrap创建的镶嵌面条？
示例数据：
MYdata <- data.frame(fruit = rep(c("apple", "orange", "plum", "banana", "pear", "grape")), farm = rep(c(0,1,3,6,9,12), each=6), weight = rnorm(36, 10000, 2500), size=rep(c("small", "large&
浏览 1提问于2013-10-18得票数 67
2回答
如何将灰色小平面标签(A和B)更改为带有白色文本的红色背景？
library(data.table)
A = data.table(x = 1:4, y = 1:4, z = c('A','A','B','B'))
ggplot(A) + geom_point(aes(x = x, y = y)) + facet_wrap(~z) + theme_bw()
浏览 2提问于2017-01-13得票数 52
回答已采纳
在使用facet_wrap()时，我想消除带标签的冗余，并且使用两个变量，并且都是免费的。
例如，以下图形的facet_wrap版本
library(ggplot2)
dt <- txhousing[txhousing$year %in% 2000:2002 & txhousing$month %in% 1:3,]
ggplot(dt, aes(median, sales)) +
geom_point() +
facet_wrap(c("year", "month"),
labeller = "labe
浏览 0提问于2018-10-08得票数 21
回答已采纳
我有一个相当长的时间序列，我想要在ggplot中绘制，但它足够长，即使使用整个页面的宽度，它几乎是可读的。
相反，我要做的是把地块分成两个(或更多，一般情况下)面板，一个放在另一个上面。
我可以手动完成，但不仅很麻烦，而且很难得到相同的比例。理想情况下，我希望有这样的东西：
ggplot(data, aes(time, y)) +
geom_line() +
facet_time(time, n = 2)
然后得到这样的东西：
(这幅图是用facet_wrap(~(year(as.Date(time)) > 2000), ncol = 1, scales =
浏览 4提问于2017-03-24得票数 4
回答已采纳
我想安排几个平面图。对于直方图来说，它工作得非常好，下面的代码如下：
df<-NULL
df$Temp<-rnorm(mean=20,sd=3,n=100)
df$Modul<-rep(seq(1,4,1),25)
df<-as.data.frame(df)
qplot(Temp, data=df, geom="histogram",binwidth=1)+
facet_grid(Modul ~ .)
现在我想要累积直方图，我跟踪了。但它给了我错误的数字：
qplot(Temp, data=df, geom="hist
浏览 3提问于2014-09-30得票数 4
回答已采纳
我试图在我的facet_grid图形中改进一个简单但重要的细节。
我使用facet_grid()函数的比例和空间参数。但是，我只想增加高度，只用于底部的方面，以便能够读取在图形中被切断的样本计数(以红色高亮显示)。见Image1。所用的代码是：
ggplot(salm_data, aes(x=SALM) ) + geom_bar(stat = "count", position = position_dodge())
+ facet_grid(YEAR ~ TYPE, scales = "free_x", space = "free")
浏览 2提问于2022-03-18得票数 2
回答已采纳
1回答
我想问一下如何处理dplyr的输出，然后以geom_bar的形式绘制出来呢？ 使用以下代码将显示为绘图，但它没有正确的属性： library(dplyr)
library(ggplot2)
mtcars %>% select(-cyl) %>%
group_by(gear) %>%
summarise(mean_hp = mean(hp),
median_hp = median(hp),
count = n()) %>%
gather() %>%
ggplot(aes(value))
浏览 10提问于2019-12-24得票数 0
2回答
我想知道如何得到一个y的位置，相对于所产生的ggplot的规模。
例如：
library(ggplot)
marks <- data.frame(mpg = c(15,25,30), cyl = c(4,8,4))
ggplot()+
geom_point(mtcars,mapping = aes(x = mpg, y = hp))+
facet_grid(~cyl)+
geom_point(marks, mapping = aes(x = mpg, y = Inf), col = "red")
插入Inf或-Inf将使您获得绘图的最大和最小范围
浏览 8提问于2022-04-27得票数 0
回答已采纳
1回答
分别绘制垂直线
、、、
我为我的变量创建了一个密度图。然后，我使用facet_wrap显示了每个男性和女性参与者的分布。我想分别绘制每个男性和女性的平均值，但它显示了两个密度图中的两个均值。怎样才能只得到男性情节中的“男性-均值”和女性情节中的“女性-均值”？我使用了以下代码
plot3 + geom_density() + facet_wrap(~gender) +
geom_vline(aes(xintercept = 2.9), color = "red") +
geom_vline(aes(xintercept = 3.1), color = "red")
浏览 0提问于2017-12-12得票数 1
2回答
我想把x值(目标)放在最大列的顶部。所以团队A的标签是"3“，B组是标签"2”在这些列的顶部。
代码：
df <- tibble ( team = rep(c('A', 'B'), each = 5),
goals = rep(1:5,2),
prob = c(.10, .15, .25, .20, .15, .20, .30, .20, .10, .05))
df %>%
ggplot(aes(x = goals, y = prob)) +
geom_co
浏览 14提问于2022-08-06得票数 0
回答已采纳
我想为一个因子的每个级别或一个数值变量的每个值(这里是vs变量的每个值)绘制多个图。我不想使用facet_grid或facet_wrap。我想知道是否有更紧凑的方法来完成这项任务。在我的实际数据中，我确实有很多级别的因子。 library(tidyverse)
mtcars %>%
dplyr::filter(vs == 0) %>%
ggplot(mapping = aes(x = wt, y = mpg)) +
geom_point()
mtcars %>%
dplyr::filter(vs == 1) %>%
ggplot(ma
浏览 21提问于2019-05-20得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
