我试图理解为什么facet_grid()和facet_wrap()的输出是不同的，尽管它们的输入是相同的：
facet_grid
ggplot(temp, aes(x = valor)) +
geom_histogram(binwidth = 5, fill = NA, color = "black") +
facet_grid(estratificacao ~ referencia, scales = "free") +
scale_x_continuous(breaks = seq(0, 100, 10)) + theme_classic()
fa
浏览 3提问于2016-06-07得票数 25
回答已采纳
请考虑以下代码：
require(ggplot2)
ggplot(data = mtcars) +
geom_point(aes(x = drat, y = wt)) +
geom_hline(yintercept = 3) +
facet_grid(~ cyl) ## works
ggplot(data = mtcars) +
geom_point(aes(x = drat, y = wt)) +
geom_hline(yintercept = 3) +
facet_grid(~ factor(cyl))
浏览 0提问于2018-07-04得票数 2
回答已采纳
我想知道如何将类似于以下ggplot (在画图中编辑)这样的情节分组：
看起来，facet_wrap()和facet_grid()函数不能用于排列列和子列。
有什么R包我可以用吗？
谢谢
浏览 1提问于2018-03-18得票数 0
回答已采纳
我想知道如何在ggplot2中将facet标签更改为数学公式。
d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) +
xlim(0, 2) + stat_binhex(na.rm = TRUE) + opts(aspect.ratio = 1)
d + facet_wrap(~ color, ncol = 4)
例如，我想将facet标签从D更改为Y[1]，其中1是下标。提前感谢您的帮助。
我找到了这个，但它对我不起作用。我使用的是R 2.15.1和ggplot2 0.9.1。
浏览 8提问于2012-08-16得票数 17
回答已采纳
我试图用包含表达式和正则值的facet标签来生成一个图。但我不能让label_parsed使用'multi_line = FALSE‘。还有别的办法可以把它写成一行吗？(我的意思是，除了把这两个因素结合在一起外)
示例：
df<-data.frame(x=1:3,y=1:3,f1=rep("TCRb",3),f2=1:3)
#make label to be parsed
df$f1.<-df$f1
levels(df$f1.)<-"paste('TCR',beta)^'-/-'"
#plot with
浏览 1提问于2016-06-19得票数 3
回答已采纳
1回答
我有下面的数据集和r代码来生成ggplot。
df = data.frame(Animals = c("Dog", "Cat", "Horse", "Giraffe"), Number = c(88, 11, 107, 59),
Cat = c("A", "A", "B", "B"),
Place=c("Place1","Place2"))
ggplot(df,
浏览 3提问于2017-03-01得票数 5
回答已采纳
在ggplot2中同时使用函数geom_tile和facet_wrap时，如何设置美学fill的不同限制，作为可以在free/free_y/free_x中设置为facet_wrap的选项scales
下面是一个例子来说明这个问题。对于data.frame df中的不同type，z的范围可能会非常不同。如果我们使用相同的美学fill限制，z部分中哪一个的值很小，就很难看到细节。
pp <- function (n,r=4) {
x <- seq(-r*pi, r*pi, len=n)
df <- expand.grid(x=x, y=x)
df$r &l
浏览 3提问于2013-06-09得票数 9
我一直在阅读这两个函数的ggplot2文档。我想知道使用每个函数(facet_wrap()和facet_grid())的区别和正确情况是什么。
library(ggplot2)
p <- qplot(displ, hwy, data = mpg)
p + facet_wrap(~ cyl)
p + facet_grid(~ cyl)
我提供这个小例子作为起点。不同之处似乎使地块变得更加自主，而网格则使所有的地块结合在一起。
浏览 4提问于2013-12-08得票数 90
回答已采纳
1回答
我使用以下代码使用ggplot2在r中创建了一个图：
g <- ggplot(newdata, aes(MVPAper, FMI) +
geom_smooth(method = 'lm'))
然后我添加了以下内容：
p <- g + geom_point(aes(color = Age)) +
facet_grid(Age ~ .) +
stat_smooth(method = 'lm') +
theme_bw(base_family = 'Times')`
我想为我创建的四个图中的每一个都
浏览 5提问于2018-07-30得票数 0
1回答
我试图得到我的经验累积密度曲线，以填补他们的背景，但似乎无法实现。
我尝试了以下两种方法，第一种方法似乎改变了曲线的alpha，而不是填充
ggplot( myDataFrame , aes( x=myVariable , fill=myFactor ) ) +
geom_step ( stat="ecdf" , aes( colour = myFactor ) , alpha=1 ) +
coord_cartesian( xlim = c( 0 , quantile( myDataFrame$m
浏览 0提问于2014-10-30得票数 4
回答已采纳
在R中，我试图用面对翻转的坐标(水平框)进行分组，在gg图中生成一个方格图。当我在没有翻转坐标的情况下构建这个程序时，ggplot将在scales=“空闲”的方面中降低未使用的因子级别，但是当我还包括coord_flip时，这似乎不起作用。
最起码的例子：
library('ggplot2')
dat <- data.frame(RESP=rnorm(60), GROUP=rep(letters[1:6],each=10), FACET=c(rep(LETTERS[1:2],each=25),rep(LETTERS[3],10)))
减少未使用级别的普通平面盒图有效(但不
浏览 1提问于2015-07-23得票数 3
回答已采纳
2回答
我正试图绘制一个facet_grid图，如下面的示例所示。其中一个方面的名称太长，无法正确显示，因此会被切断。
我试着在文本周围添加一个边距，以正确显示完整的facet名称。但是，margin选项在element_text中只允许我添加水平边距-文本字段的高度似乎是固定的。有什么方法可以增加垂直边距吗？
library (ggplot2)
x <- mtcars
x$cyl <- as.factor (x$cyl)
levels (x$cyl) <- c ("a", "b", "this is a very very long
浏览 8提问于2020-12-16得票数 1
回答已采纳
如果我正确理解，R中的倾斜(~)通常表示一个匿名函数或公式。在ggplot2中，您可以使用facet_wrap()根据具有多个级别的因素变量将您的绘图分割成面。有两种不同的表达方式，它们都产生了相似的结果：
# load starwars and tidyverse
library(tidyverse)
data(starwars)
有一个~
ggplot(data = starwars, mapping = aes(x = mass)) +
geom_histogram(fill = "blue", alpha = .2) +
theme_minimal()
浏览 3提问于2022-10-10得票数 2
回答已采纳
我喜欢将facet_wrap()或facet_grid()与ggplot一起使用的简洁，因为所有的图都是相同大小的，并且自动地以行和列的方式拟合。 我有一个数据框架，我正在试验各种转换以及它们对R2测量的fit的影响 dm1 <- lm(price ~ x, data = diamonds)
dm1R2 <- summary(dm1)$r.squared #0.78
dm2 <- lm(log(price) ~ x, data = diamonds)
dm2R2 <- summary(dm2)$r.squared # 0.9177831
dm3 <- lm(
浏览 16提问于2019-09-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
我正在R的泰坦尼克图书馆工作，我正在使用ggplot为年龄创建一个密度图网格，上面填满了生存状态，y轴上的计数，按性别和乘客等级划分。
这是我的代码
titanic %>%
ggplot(aes(Age, ..count.., fill = Survived)) +
geom_density(alpha = 0.2) +
facet_grid(Pclass~Sex)
如果我在facet_grid中交换变量，会有很大的不同吗？facet_grid(Pclass~Sex)和facet_grid(Sex~Pclass)都给我提供了合理的图表。我应该使用哪一个来建立我的分析基础？
浏览 0提问于2020-12-28得票数 0
这里是一个可重复的例子
set.seed(12)
d = data.frame(
x = rep(LETTERS[c(2,1,3,4)],each=30),
y=rnorm(120),
facet = c(rep("facet 1", 20), rep("facet 3", 10), rep(rep(paste("facet",1:3), each=10),3))
)
require(ggplot2)
ggplot(d,aes(x=x,y=y)) + geom_boxplot() + facet_grid(.~facet)
浏览 3提问于2016-03-01得票数 0
回答已采纳
1回答
下面是一个函数的代码，它松散地基于R的ggplot2包。正如您所看到的，他们使用的字体是Helvetica，但是我想知道是否有可以包含自定义字体？我在我的计算机上下载了一个otf格式的字体，我想添加它。
#' Add bbc theme to ggplot chart
#'
#' This function allows you to add the bbc theme to your ggplotgraphics.
#' @keywords bbc_style
#' @export
#' @examples
#' line <-
浏览 2提问于2021-08-23得票数 2
回答已采纳
假设我有以下数据集：
set.seed(42)
data <- data.frame(type = sample(LETTERS[1:2], 40, replace = T),
condition = sample(c("Control", "Treatment"), 40, replace = T),
measurement = runif(40))
我想要创建一个面图：
ggplot(data, aes( x= condition, y = measurement))+
浏览 7提问于2022-07-27得票数 0
回答已采纳
我在ggplot2 R包中使用facet_grid来显示不同的数据组，但是由于某些原因，面标签和轴标签是按照相对于所显示的顺序进行切换的。作为示例，我使用的代码是：
library(ggplot2)
library(tidyr)
data <- transform(mtcars,
am = factor(am, levels = 0:1, c("Automatic", "Manual")),
gear = factor(gear, levels = 3:5, labels = c("Three
浏览 0提问于2017-03-17得票数 3
我正在尝试在散点图上对多个感兴趣的区域进行着色。基于，我认为我被迫将初始的ggplot()调用留空，并在geom_point()调用之前提供geom_rect()调用。我已经把所有这些都用上了。但是，我不能基于传递给geom_point()的数据来应用facet。
下面正确地绘制了我的数据(不同大小的红色和蓝色区域的散点图)：
ggplot() +
geom_rect(aes(xmin=885, xmax=1544, ymin=-Inf, ymax=Inf), alpha=.2, fill = "red") +
geom_rect(aes(xmin=1858, xmax=25
浏览 1提问于2018-06-29得票数 0
我在R中使用ggplot创建了以下图：
代码：
ggplot(hola, aes(.fitted, .resid, color=type)) +
geom_point() +
geom_hline(yintercept = 0, color="black") +
geom_smooth(se = FALSE, color="darkblue")+facet_wrap( type~exp, scales = "free") +
scale_color_manual(values=c
浏览 3提问于2017-08-16得票数 0
回答已采纳
rows是解决这个问题的一些解决办法，但是为什么可以在ggplot2::facet_grid()中为 传递一个字符串，但是为什么不能传递给 cols？
这是可行的(注意rows属性)：
f_varname <- 'drv'
ggplot( mpg, aes( displ, cty ) ) + geom_point() +
facet_grid( rows = f_varname )
但这不是(请注意cols属性)：
f_varname <- 'drv'
ggplot( mpg, aes( displ, cty ) ) + geom_po
浏览 1提问于2021-06-15得票数 2
回答已采纳
我使用facet_grid()绘制了一个图，并希望修改facet网格的条目。
考虑以下MWE：
library(ggplot2)
ggplot(mpg, aes(displ, cty, fill=cyl)) +
geom_point() +
scale_fill_continuous() +
facet_grid(rows = vars(drv))
我想将每行右侧的条目4、f和r替换为字符(例如，c("Case 1", "Case 2", "Case 3")并在条目的右侧(即灰色框和图例(cyl)之间)添加一个标题框。
facet_
浏览 0提问于2020-05-28得票数 1
回答已采纳
1回答
我想在ggplot2图中更改刻面的顺序和标签。我可以单独更改顺序或标签，但不能同时更改它们。我跟随更改了标签的顺序和。有什么帮助吗？谢谢。
library(ggplot2)
df <- data.frame(x = seq(1, 8), y = seq(2, 9), cat = rep(c('a', 'b'), 4))
label <- c('label_1', 'label_2')
names(label) <- c('a', 'b')
df %>%
ggplo
浏览 1提问于2021-07-22得票数 2
使用diamonds，我想把carat和price画成4级(Fair、Good、Very Good和Premimum)的cut。
我没有允许facet_wrap()控制轴中的断点，而是绘制了四个图来控制轴上的断点。
library(ggplot2)
library(egg)
library(grid)
f1 <-
ggplot(diamonds[diamonds$cut=="Fair",], aes(carat, price))+
geom_point()+
facet_wrap(~cut, ncol =2)+
scale_x_continuous(limi
浏览 10提问于2016-08-18得票数 6
回答已采纳
我正在研究哈德利·韦翰的“数据科学R”，在那里他使用~var进行ggplot调用。
我理解y ~ a + bx，其中~描述了因变量和自变量之间的公式/关系，但是~var是什么意思？更重要的是，为什么你不能把变量本身放进去呢？见下面的代码：
ggplot(data = mpg) +
geom_point(mapping = aes(x = displ, y = hwy)) +
facet_wrap(~ class, nrow = 2)
或
demo <- tribble(
~cut, ~freq,
"Fair", 1610,
浏览 2提问于2018-08-17得票数 10
示例1
library(tidyverse)
ggplot(mtcars) +
geom_bar(aes(x = factor(cyl))) +
scale_y_continuous(expand = expand_scale(mult = c(0, 0)))
我的问题似乎是ggplot expand_scale()的行为不一致。但这种说法可能是不正确的。让我们从上面的图开始，作为我们的基线，并深入研究这一点。
示例2
，mult = c(X, Y)允许我扩展ggplot比例尺X%低于绘图，Y%高于绘图。下面的代码就是这样的。
ggplot(mtcars) +
geo
浏览 0提问于2019-05-20得票数 4
回答已采纳
1回答
有任何方法可以删除在使用facet_wrap时添加到最后一行的空图表吗？
我使用facet_wrap生成这样一个图：
library(ggplot2)
library(plotly)
g=ggplot(data=mtcars, aes(x=mpg, y=wt))+geom_point()+facet_wrap(~hp)
print(g)
这就得出了这个数字：
如果我尝试使用ggplotly，额外的空图表将添加到最后一行。
gg = ggplotly(g)
print(gg)
有什么办法可以避免这种情况吗？
浏览 0提问于2018-06-19得票数 1
回答已采纳
考虑以下简单示例：
df <- data.frame(
a = rep(c('a','b','c'),3),
b = as.Date(rep(c('2011-01-01','2011-02-01','2011-03-01'),3)),
c = rnorm(9),
d = rep(1:3,each=3)
)
str(df)
ggplot(df, aes(x=d, y=c)) + geom_line(aes(group=b)) + facet_wrap(~a)
ggplo
浏览 10提问于2013-10-17得票数 4
回答已采纳
我想同时显示右边和底部的边际，但不是两者的结合。这与facet_grid是可能的吗？
library(ggplot2)
ggplot(mtcars, aes(x = hp, group = vs)) +
geom_density() +
facet_grid(am ~ vs, switch = "y", margins = TRUE)
我试图通过手动将这些因素提供给margin参数来修复它，但这并没有帮助。而且，R文档也帮不了我。
当前结果
期望结果
浏览 0提问于2018-12-05得票数 4
回答已采纳
我使用trelliscopejs包中的facet_trelliscope进行数据可视化。当我的ggplot只有一个层时，它工作得很好。但是如果我引入第二层，它就不能正确地分面。示例： # Load packages
library(tidyverse)
library(trelliscopejs)
# Basic stat summary table using iris
stat_sum <-
iris %>%
group_by(Species) %>%
summarise(l_mean = mean(Sepal.Length))
#Standar
浏览 13提问于2019-01-23得票数 0
使用“https://plot.ly/r/”中的一个示例 library(plotly)
d <- diamonds[sample(nrow(diamonds), 1000), ]
p <- ggplot(data = d, aes(x = carat, y = price)) +
geom_point(aes(text = paste("Clarity:", clarity)), size = 4) +
geom_smooth(aes(colour = cut, fill = cut)) + facet_wrap(~ cut) 我想知道当鼠标移动到不同的方面
浏览 15提问于2018-12-21得票数 0
我正在尝试使用ggplot2创建图形，但即使没有抛出错误，它也不能渲染。
我使用的R版本是3.6.1
airquality <- airquality[complete.cases(airquality),]
p <- ggplot(airquality, aes(Ozone,Temp))+
geom_point(color = "steelblue", size = 3, alpha = 0.5)+
facet_grid(.~Month)+
geom_smooth(method = "lm")
当我运行代码时，绘图区域为空白
浏览 0提问于2019-07-17得票数 0
我正在尝试制作一个重叠的直方图，如下所示：
ggplot(histogram, aes = (x), mapping = aes(x = value)) +
geom_histogram(data = melt(tpm_18_L_SD), breaks = seq(1,10,by = 1),
aes(y = 100*(..count../sum(..count..))), alpha=0.2) +
geom_histogram(data = melt(tpm_18_S_SD), breaks = seq(1,10,by = 1
浏览 21提问于2018-02-23得票数 3
我在R中使用ggplot来用facet_wrap绘制几个条件。我想把图名放在右边的垂直轴上，而不是顶部。
这就是一个例子：
library(ggplot2)
dat<- data.frame(name= rep(LETTERS[1:5], each= 4), value= rnorm(20), time= rep(1:5, 4))
gg<- ggplot(data= dat, aes(x= time, y= value)) +
geom_point() +
facet_wrap(~ name, ncol= 1)
在这里，情节名称(A，B，C，D，E)在上面，我
浏览 2提问于2015-02-12得票数 9
回答已采纳
2回答
我在控制ggplot中的条形图的颜色时遇到问题。
require(mice)
require(ggplot2)
impute <- mice(nhanes, seed = 101)
ldt <-complete(impute,"long", include=TRUE)
ldt$Imputed<-ifelse(ldt$".imp"==0,"Observed","Imputed")
ggplot(ldt[!is.na(ldt$hyp),], aes(x= factor(hyp), colour=Imputed))
浏览 2提问于2012-09-12得票数 1
回答已采纳
1回答
是否可以将标题的灰色框添加到基本的R图中，类似于in图中facet_wrap附带的标题？
我不能使用ggplot作为图形，但我想添加灰色标题框时，合并几个情节。
浏览 3提问于2021-06-28得票数 1
回答已采纳
我有下面的数据
GO<-c("cytosol (GO:0005829)","cytosol (GO:0005829)")
FE<-c(2.70,4.38)
FDR<-c(0.00159,0.00857)
Facet<-c("ileum 24h","ileum 72h")
CCC<-data.frame(GO,FE,FDR,Facet)
用这个代码
CCC %>%
arrange(desc(CCC$GO))%>%
ggplot(aes(x=FDR, y=GO, size=FE, co
浏览 4提问于2020-08-31得票数 1
回答已采纳
1回答
使用来自mpg包的ggplot2数据，我希望应用facet_wrap()，保留与annotate()一起添加的统计符号
ggplot(mpg[ mpg$drv == levels(mpg$drv)[1] ,],
aes(x = class, y = hwy)) +
geom_boxplot() +
annotate("segment", x=2, xend=3, y= 26, yend = 26) +
annotate("text", x=2.5, y= 27, label = "*", size = 10)
浏览 15提问于2014-09-12得票数 0
回答已采纳
我希望flex仪表板占据整个屏幕(全宽，全高)和滚动，以适应在一个小平面包裹大量的情节。使用下面提供的nycflights13使我的问题可重现，并在垂直方向上生成不可读的超级压缩的绘图。如何在flex仪表板中实现这一点？ 编织输出如下：https://imgur.com/a/LyfZTw3 ---
title: "facet test"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: scroll
---
```{r setup, include=
浏览 20提问于2019-09-12得票数 0
回答已采纳
在这个问题上，我看到了很多不同的地方，以及我得到的错误信息。然而，所有的情况都不像我想做的那样。假设我有一些数据看起来有点像这样：
r <- c("zero", "r", "zero", "zero", "r", "r", "r", "zero", "r", "r")
store <- c("Saks", "Saks", "Klein's", "Macy
浏览 1提问于2016-10-26得票数 0
回答已采纳
1回答
如何在ggstance::geom_linerangeh中避开ggplot2？
library(tidyverse)
library(ggstance)
mtcars %>%
group_by(cyl, am) %>%
summarize(lo = mpg %>% min,
hi = mpg %>% max) %>%
ggplot() +
geom_linerangeh(aes(y = am %>%
factor,
xmin = lo
浏览 2提问于2017-07-30得票数 1
回答已采纳
1回答
我有一个巨大的data.table，我想为每个组绘制直方图。在下面的示例中，我希望每个“行”有6个样地(因此最后一行将只有两个图，用于s和t组)。
我该怎么做？
library(ggplot2)
library(data.table)
DT <- data.table(Group = rep(letters[1:20], each = 200),
Value = rnorm(4000))
hist.plot <- ggplot(DT, aes(x = Value)) +
geom_histogram(bin
浏览 0提问于2016-03-11得票数 2
回答已采纳
我使用gglopt()和facet_warp()制作了R中的图表，但没有显示geom_lines()和stat_smooth()的图例。 我的代码示例如下： p <- ggplot(data = mtcars, aes(x = hp, y = disp)) +
geom_line(color="red")+
facet_wrap(~cyl)+
stat_smooth()+
guides() ? 如何在图表决赛中添加图例？
浏览 42提问于2021-06-21得票数 0
回答已采纳
例如,
library(ggplot2)
df <- data.frame(
Id = c(1, 1, 2, 3, 3, 3),
x = c(1, 2, 2, 1, 3, 4),
y = c(1, 2, 1.5, 4, 5, 4.5),
Label = c("mean: 1.5", "mean: 1.5", "mean: 1.5", "mean: 4.5", "mean: 4.5", "mean: 4.5")
)
ggplot(df, aes(x=x, y=y))+facet_
浏览 1提问于2017-10-24得票数 1
回答已采纳
1回答
如何将color九的图例中的颜色和形状合并？这在R中似乎是可能的，但我不能让它在情节9中工作... 这里有一个例子： from plotnine import ggplot, geom_point, aes, stat_smooth, facet_wrap
from plotnine.data import mtcars
(
ggplot(mtcars, aes('cyl', 'mpg', color='factor(gear)', shape='factor(vs)'))
+ geom_jitter()
)
浏览 105提问于2021-01-22得票数 0
回答已采纳
我有一些图形可以很好地打印出来，直接输入为R代码，但当由knitr生成时，它会生成糟糕的文本对齐方式。考虑一下
library(ggplot2)
library(extrafont)
loadfonts(device="win")
ggplot(data.frame(x=1:10,section=c(rep("You",8),rep("Me",2))))+
geom_point(aes(x=x,y=x))+
ylab("my\nlabel")+
theme(text=element_text(family="Arial U
浏览 2提问于2013-11-07得票数 4
我正在用ggplot() + geom_boxplot() + facet_wrap()为多个组绘制盒子图。我想在这个对象上使用ggplotly()来使用悬停工具提示，这样我就可以快速地查看与异常值相关的数据。(为什么我不只是在情节上加注解呢？我将将自定义文本添加到工具提示中，它比我希望出现在绘图上的固定注释中的内容更广泛。)
当我使用ggplotly时，会显示这些方面，但只会显示第一个方面的数据。facet_grid也是如此。(我更喜欢使用facet_wrap，这样我就可以在不同的方面之间使用自由的刻度。)
有没有一种方法可以让ggplotly以这种方式处理面？我在里什么也没看到。我见过其他
浏览 1提问于2021-03-04得票数 2
回答已采纳
2回答
我很难理解ggplot2和ggraph在面设置方面的区别。考虑以下数据：
library(igraph)
library(ggraph)
library(ggplot2)
df <- structure(list(x = c("H001", "H024", "H090", "H090", "H098",
"H103", "H126", "H152", "H155", "H155", &
浏览 4提问于2017-10-12得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
