如何使用ggplot将两个不同比例的y轴放在绘图的同一侧？
使用ggplot将两个不同比例的y轴放在绘图的同一侧，可以通过以下步骤实现：
- 首先，安装并加载ggplot2包，以便使用其中的函数和功能。
install.packages("ggplot2")
library(ggplot2)- 创建一个数据集，包含需要绘制的变量和对应的值。
# 假设有两个不同比例的y轴数据，分别为y1和y2
y1 <- c(10, 20, 30, 40, 50)
y2 <- c(100, 200, 300, 400, 500)
# 创建一个x轴的数据，长度和y1、y2相同
x <- c(1, 2, 3, 4, 5)
# 创建一个包含以上变量的数据框
data <- data.frame(x, y1, y2)- 使用ggplot函数创建绘图对象，并指定数据集和对应的变量。
# 创建绘图对象，并指定数据集
plot <- ggplot(data, aes(x = x))- 添加第一个y轴的图层，并指定对应的变量和几何图形。
# 添加第一个y轴的图层
plot <- plot + geom_line(aes(y = y1), color = "blue")- 添加第二个y轴的图层，并指定对应的变量和几何图形。
# 添加第二个y轴的图层
plot <- plot + geom_line(aes(y = y2 * max(y1) / max(y2)), color = "red")在这里，将第二个y轴的值通过乘以第一个y轴的最大值与第二个y轴的最大值之比来进行缩放，以保证两个y轴在同一侧显示。
- 添加y轴标签和图例，并设置两个y轴的标签和颜色。
# 添加y轴标签和图例
plot <- plot + ylab("y1") + scale_y_continuous(sec.axis = sec_axis(~./max(y1)*max(y2), name = "y2")) + theme(legend.position = "right") + labs(color = "Variable")- 显示绘图结果。
# 显示绘图结果
plot这样，就可以使用ggplot将两个不同比例的y轴放在绘图的同一侧，并正确显示数据的关系。
相关·内容
我已经设置了一个具有两个绘图空间的核心图-一个用于一组条形图，其y轴位于左侧，另一个用于散点图，其y轴位于右侧。它可以工作，只是网格线不匹配：
两个轴的标签策略都设置为CPTAxisLabelingPolicyAutomatic。有没有办法改变轴，使网格线匹配？
浏览 2提问于2013-06-04得票数 0
回答已采纳
我是ggplot2的新手，我有一个问题我找不到答案。我已经创建了以下玩具数据来帮助解释：
data <- data.frame(tech=c(rep(letters[1:15],2)),
sep=c(rep(c("SitutationA", "SitutationB"),each=15)),
error=c(runif(15,min=-0.2, max=0.5), runif(15, min=0.3, max=1)))
我想绘制一个geom_bar图，显示使用facet_grid划分为两种不同情况(SituationA和Situat
浏览 1提问于2013-03-19得票数 1
2回答
我有两张图，我试图在另一张图上覆盖：
数据框架"ge“的示例如下所示。实际上，有10个基因，每个样本有200个，因此有2000行3列：
Exp Gene Sample
903.0 1 1
1060.0 1 2
786.0 1 3
736.0 1 4
649.0 2 1
657.0 2 2
733.5 2 3
774.0 2 4
数据框架"avg“的示例如下所示。这是所有样本中每个基因的平均数据点。实际上，这个图有10个基因，因此矩阵是4 co
浏览 6提问于2012-11-21得票数 27
回答已采纳
我想用累积分布函数(CDF)和概率密度函数(PDF)来绘制一幅图，它有一个统一的x轴和y轴，其左右两侧的比例范围是一致的。我尝试在sec_axis()中使用ggplot2，但是PR只能画一条线，而另一条线的Y轴无效。我该怎么办？
new_data <- rnorm(n=100,mean=8000,sd=1000)
new_data <- as.data.frame(new_data)
names(new_data) <- c("CADP")
m1 <- ggplot(new_data,aes(x=CADP))+geom_density()
p1 <
浏览 4提问于2022-05-06得票数 2
回答已采纳
1回答
调整绘图区窗口大小
、、、、
我在调整打印区域的大小时遇到了问题。如果查看以下示例，您将看到x轴"x“的标签超出了绘图窗口/区域的范围，因此不再可见。我尝试使用以下命令调整绘图窗口/区域的大小
dev.new(width=10, height=10)
但这不会增加实际打印区域外的白色边界的空间。我还将绘图另存为PDF，希望标签"x“能在PDF中重新出现，但事实也并非如此。
有没有可能以某种方式增加这个特定的面积？
library(ggplot2)
df <- data.frame(x=1:10, y=1:10)
ggplot(df, aes(x,y)) + geom_point() +
opt
浏览 2提问于2012-08-24得票数 3
回答已采纳
我已经使用软件包ggplot2和scales创建了一个散点图。我可以让曲线图的Y轴从零开始，也可以让y轴格式化为货币值。我不能把这两个都做完。
此代码将Y刻度正确地格式化为O，但以符号形式表示Y刻度：
age_chart %>% ggplot(aes(x = `Patient Age`, y=Total))+
geom_point(alpha = .5)+
geom_smooth()+
xlab('Age')+
ylab('Total Plan Pmt')+
ggtitle('Total Plan Payment by Pati
浏览 0提问于2019-04-20得票数 0
1回答
我有一个非常简单的名为comparison_word_avg的数据文件：
index uniform blur man_check_no_blur
1 1 94.71% 93.83% 91.96%
2 2 87.14% 86.08% 83.04%
3 3 81.29% 88.95% 80.36%
4 4 79.71% 71.59% 75.89%
5 5 75.57% 66.43% 67.86%
我想要一张线图。在x轴上，指数从1
浏览 4提问于2022-05-10得票数 0
回答已采纳
1回答
我正在生成一个多面图，我希望为所有面板设置相同的y lim轴(0,250000)，但x轴的格式如下所示
下面是我的代码：
ggplot(seqDepthDF_melt,aes(x=SampleID,y=value))+
geom_bar(stat="identity",aes(fill=Step))+
ylab("Million PE reads") +
theme_bw()+
facet_wrap(~ SampleName,scales = "free")+
theme(axis.text.x = element_te
浏览 9提问于2019-07-11得票数 0
回答已采纳
一些样本数据：
dfr <- data.frame(
x = rep.int(1:10, 2),
y = runif(20),
g = factor(rep(letters[1:2], each = 10))
)
包含两个方面的简单散点图：
p <- ggplot(dfr, aes(x, y)) +
geom_point() +
facet_wrap(~ g, scales = "free_y")
我可以设置所有面板的轴限值
p + scale_y_continuous(limits = c(0.2, 0.8))
(或者像ylim这样的包装器)
浏览 3提问于2010-11-25得票数 29
回答已采纳
2回答
我想用4列绘制一个数据框架：
Quarters <- c("Q1","Q2","Q3")
Series1 <- c("1%","2%","3%")
Series2 <- c("4%","5%","6%")
Series3 <- c("1000","2000","3000")
df <- data.frame(Quarters,Series1,Series2,Series3
浏览 9提问于2018-05-24得票数 1
回答已采纳
1回答
我正试图用R和ggplot2绘制一个发行版本CDF。然而，当我将Y轴转换成一条直线后，我发现在绘制CDF函数时遇到了困难。这类绘图在Gumbel纸图中经常使用，但这里我将以正态分布为例。
生成数据，绘制数据的累积密度函数和函数。它们很合身。然而，当我应用Y轴变换时，它们不再适合了。
sim <- rnorm(100) #Simulate some data
sim <- sort(sim) #Sort it
cdf <- seq(0,1,length.out=length(sim)) #Compute data CDF
df <- data.frame(x=sim
浏览 3提问于2016-05-15得票数 14
回答已采纳
我正在尝试为不同的面设置不同的Y轴范围。我在网上读了很多答案，并试图将它们应用到我的脚本中，但似乎不起作用。
我使用scales = "free"使轴出现在所有面上，并使用geom_blank根据somePoints数据帧的变量Variable设置不同的轴限制
以下是数据的可重现示例：
library(ggplot2)
dummy <- expand.grid(Year = NA, Season = c("Winter","Spring","Summer","Fall"),
浏览 0提问于2018-04-04得票数 1
我正在尝试基于该表将两个ggplot2绘图合并为一个：
Type RatingA RatingB
1 One 3 36
2 Two 5 53
3 One 5 57
4 One 7 74
5 Three 4 38
6 Three 8 83
我想做两个散点图，评级的平均值在y轴上，类型在x轴上。
下面是我创建每个图表的方式：
p1 <- ggplot(test, aes(x=reorder(Type, RatingA, mean), y=Rat
浏览 0提问于2011-03-08得票数 31
回答已采纳
我试图对齐或合并地图和方格图，两者都以纬度为y轴。我已经找到了很多方法来调整图形，但似乎有一张地图会使事情变得复杂。我想让这两个情节无缝地对齐，与左边的地图和右边的盒子图对齐。
下面是这两幅图的示例代码：
library(ggplot2)
library(maps)
library(gridExtra)
##Plot base map
s_map <- map_data('state',region=c('south carolina','georgia','florida'))
p <- ggplot() + co
浏览 1提问于2016-02-24得票数 2
回答已采纳
如果我制作了一个线状图(例如，一个时间序列)并设置了轴限制，当点在轴限制之外时，我希望这条线继续离开绘图，然后回到位于轴限制内的下一个点的绘图中。现在，看起来ggplot2将完全丢弃这些点，并给我一个“错误：”的消息。
浏览 1提问于2011-10-26得票数 21
回答已采纳
问题：
我有一个基于输入的创建密度图的函数-我有3个垂直堆叠在一个gtable布局中。对于每个图，y轴都会发生变化。我想将我的geom_labels y值设置为y轴的一个比例，以便给出它们向图顶部的标准高度。
代码：
library(gtable)
library(grid)
mydata <- read.csv("Opta Stats EPL 2015-16.csv")
newdata <- mydata[ which(mydata$MP.Minutes.Played > 900 & mydata$POS != 'GK
浏览 2提问于2016-04-18得票数 1
回答已采纳
我遇到了以下两个要求的问题：
Y轴必须从3开始
一些geom_text将超出右边的图表范围。
到目前为止，我的想法及其缺陷：
从所有数据集和假y轴标签中减去-3 (最好不要)
建立一个3高的虚拟geom_bar (如何让它远离传奇？)
任何想法都将不胜感激！
library(grid)
library(ggplot2)
df=data.frame(
Date=c("2012-11-30", "2012-12-03", "2012-12-04"),
d1=c(12, 8, 13),
d2=c(
浏览 3提问于2012-12-11得票数 1
回答已采纳
我想知道y轴上的比例是如何用下面的代码计算的： library(ggplot2)
ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, y = stat(prop), group = color)) 这是output plot。 我知道有一篇关于aes(group = 1) here含义的文章。但这并没有解决我的问题。 谢谢。
浏览 89提问于2020-11-02得票数 1
回答已采纳
1回答
全
我有一个控制图，在X轴上有一个时间周期，在Y轴上有测量值(我想在控制图中画出所有点)。
但是，我有两个不同的值作为度量，它们具有完全相同的日期(直到第二次匹配)，但度量值不同。
当我在控制图上绘制时，而不是在控制图中有两个点，例如值500和550 -它给出了一个值约为200的点。它还通知在此轴上存在空值，该值指向X轴，其中两条记录具有完全相同的日期。
你知道我能做些什么来纠正这个错误--或者让tableau正确地绘制测量点吗？
提前感谢！
浏览 0提问于2014-06-20得票数 0
2回答
library(ggplot2)
p <- ggplot(mtcars, aes(x=mpg, y=wt*1000, color = factor(cyl))) + geom_point()
p + ylab("weight (lb)") +theme_bw()
我想把5000,4000,3000和2000靠近垂直轴。我知道可以使用theme(axis.title.y=element_text(vjust=0.36,hjust=.36))或类似的方法将轴标题移到更远的地方，但有时我真的想移动勾标，而不是轴标题。
浏览 8提问于2015-09-29得票数 5
回答已采纳
5回答
我正在尝试使用grid.arrange在由ggplot生成的同一页面上显示多个图形。这些图使用相同的x数据，但具有不同的y变量。由于y数据具有不同的尺度，因此曲线图具有不同的维度。
我尝试过在ggplot2中使用各种主题选项来更改绘图大小和移动y轴标签，但都没有对齐绘图。我希望这些图排列在一个2 x 2的正方形中，这样每个图的大小都相同，并且x轴对齐。
以下是一些测试数据：
A <- c(1,5,6,7,9)
B <- c(10,56,64,86,98)
C <- c(2001,3333,5678,4345,5345)
D <- c(13446,20336,24333,
浏览 2提问于2012-12-01得票数 21
回答已采纳
2回答
有没有可能缩小y轴？我的意思是，我希望它是矩形的，而不是方形的，y轴缩小了。
library(ggplot2)
data = data.frame(rnorm(10000))
colnames(data) = "numOfX"
m <- ggplot(data, aes(x=numOfX))
m + geom_histogram(colour = "blue", fill = "white", binwidth = 0.5)
浏览 2提问于2012-07-23得票数 3
回答已采纳
1回答
这是一个奇怪的要求。我能计算出ggplot对象上的ggplot轴标签上的数字数吗？
library(ggplot2)
library(scales)
dat <- data.frame(x=1:10,y=rnorm(10))
p1 <- ggplot(dat,aes(x=x,y=y)) + geom_point() +
scale_y_continuous(labels = scales::number_format(accuracy = 0.01))
p2 <- ggplot(dat,aes(x=x,y=y)) + geom_point() +
scale_y_co
浏览 3提问于2022-06-17得票数 0
这绘制了一个条形图，其中包含了x轴上的裁剪类型以及y轴上数据集中切割的比例。
library(ggplot2)
ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, y = ..prop.., group = 1))
这绘制相同的条形图，但根据切割内的钻石颜色填充条形图。
ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, y = ..prop.., group = 1, fill = color))
我看不出这两幅图有什么区别。为什么“填充=颜
浏览 1提问于2020-11-22得票数 1
回答已采纳
我需要一个具有两个Y轴ggplot，这样主Y轴与计数(我将使用函数stat=count计算)和次Y轴显示用stat_summary(fun.y="mean")计算的平均值
我用以下方法计算了集群的数量：
library(ggplot2)
ggplot(df,aes(x=cluster,fill=year, stat="count"))+
geom_bar()
以及在集群中的散度平均值：
ggplot(df, aes(x=factor(cluster), y=divergence)) + stat_summary(fun.y="mean",
浏览 0提问于2018-05-31得票数 1
我不断地得到y轴和柱面上的指数。我如何改变它，使它不再以指数的形式出现。我还想让y轴上升到800万。
obama <- data.frame(date=c("March 27", "March 31"),
enrollment=c(6000000, 7066000))
ggplot(data = obama, aes(x= date, y=enrollment))+
geom_bar(stat = "identity")+
ggtitle("Obamacare Enrollment
浏览 10提问于2020-09-18得票数 0
回答已采纳
1回答
我正在使用ggplot2在R中创建一个线条图。到目前为止，这个图表看起来还不错(我对所有这些都比较陌生)，但我遇到了一个问题，试图调整我的x轴来更好地定义趋势--比例略有下降。每当我使用coord_fixed --乱搞它--整个图的比例就会乱七八糟。对于在这种情况下使用coord_fixed，您有什么建议？
这是密码
ggplot(Met_IOPC, aes(x= Year, y= Total, group = 1))+
geom_line(color="darkblue")+
geom_point()+
scale_y_continuous(expand
浏览 3提问于2022-05-13得票数 0
2回答
我试着在同一幅图上嵌入几个不同高度，但y尺度相同的图。在下面的例子中，我有两个高度不同的情节。当我绘制它们时，y轴之间不相对应。我如何以编程方式“对齐”这两个图？
谢谢
library(dplyr)
library(gridExtra)
plot_1 = data.frame(x = 1:250,
y = 1:250) %>%
ggplot(aes(x = x, y = y)) +geom_point()+ scale_y_continuous(limits=c(0,250), expand = c(0, 0)) +
theme(leg
浏览 1提问于2022-02-01得票数 1
2回答
如何用不同的宽度对齐两个地块，以便：
，它们的x轴是同步的，，最上面的行还包含一个常见的图例。
基本上，我希望每个x轴间隔对应于两个地块上相同的厘米数。我试过这样做：
library(cowplot)
library(tidyverse)
wide_plot = iris %>%
ggplot(aes(x = Sepal.Length, Sepal.Width, color = Species)) +
geom_point() +
theme(legend.position = "none") +
scale_
浏览 4提问于2020-05-12得票数 2
1回答
我试图创建下面的图，但在y轴上使用比例。
library(ggplot2)
ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge")
但是当我添加y=..prop..时，它不会按clarity分组。我尝试了以下几点：
ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, y = ..prop.., fill = clarity), position = "do
浏览 1提问于2019-02-20得票数 3
回答已采纳
1回答
核心地块365天。填充问题
、、、、
我对iOS的核心情节1.0有问题(是的，我现在不能更新它)
我的数据源返回365个值，为期一年。
如果我用30个值绘制的图形与Y轴相距，例如：
如果我画出所有的值，然后把它粘在Y轴上，例如：
我怎样才能添加填充到绘图，而不是图形或PlotArea？
浏览 0提问于2015-06-02得票数 0
1回答
我正在使用牛仔包来创建一个绘图网格。当我想要垂直绘制两个不同宽度的地块时，我的问题就来了。下面是一个示例：
library(dplyr)
library(ggplot2)
library(cowplot)
plot1 = iris %>%
ggplot(aes(x = Species, y = Sepal.Width, fill = Species)) +
geom_col()
plot2 = iris %>%
filter(Species != 'virginica') %>%
ggplot(aes(x = Species, y =
浏览 3提问于2020-04-23得票数 2
回答已采纳
我正在尝试创建一个散点图，使用an图，它共享一个X轴，但是有一个具有两个不同尺度的Y轴。
Y轴底部有三个标度，从0%到0.1%，然后是0.1%到1%，最后是10%的规则间隔。
一个来自的例子
有没有办法在R中用ggplot来产生这样的东西？我会修改斧头吗？在同一个面板上盖上几块地皮？还是别的什么？
浏览 3提问于2015-02-26得票数 2
回答已采纳
我想画一张直方图，y轴显示观察值在仓位中的比例。我尝试按照这里的建议使用代码。
ggplot(data=diamonds, aes(x=carat, after_stat(density))) + geom_histogram(binwidth = 0.05, position="identity", fill = "white", colour = "black")
还有这里
ggplot(data=diamonds, aes(x=carat)) + geom_histogram(aes(y=..density..), binwid
浏览 19提问于2020-05-19得票数 0
回答已采纳
我尝试将标签(大写字母)添加到以下facet_grid中的每个图中 p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_grid(drv ~ cyl) 这将输出以下内容： ? 我想要的是： ? 我遇到的主要问题是: 1)我的Y轴是自由缩放的，所以为每个轴输入特定的坐标是不起作用的。2)我不确定我应该在这里搜索什么关键词，我确信在facet_grid中有一种方法可以做到这一点，但我找不到它。
浏览 53提问于2019-05-25得票数 0
我已经在ggplot2中创建了一个带有两个y轴的直线图，并且只希望一个数据集(蓝色)被绘制在一个相反的轴上，并希望另一个数据集(红色)以与第一个数据集不同的比例绘制。但是，我所处理的代码会反转两个轴，虽然第二个y轴已经被编码为具有不同的缩放度，但是第二个数据集(红色)是使用第一个y轴的比例绘制的。此外，我还创建了一条行(绿色)，为此我必须确定蓝线拦截它的位置。我知道这个问题的后半部分曾经被问过并得到了回答，但是在那篇文章中指出解决方案实际上并不有效。任何输入都是有帮助的！谢谢!我提供了一个样本数据集，因为我的数据集太大，无法重新创建。
time<-c(1,2,3,4,5,6,7,8,9,
浏览 0提问于2018-01-23得票数 2
回答已采纳
我需要一些帮助改变标题的大小，但不是图例(y轴)。我不能单独更换它们。 此外，我需要改变图形的大小，更高。 谢谢 grafico <- ggplot(meanIMcomunas, aes(x= IM, y= Comuna))
+ geom_point(aes(color = IM),size =2)
+ labs(title = "Promedio de IM por comuna")
+ theme(text =element_text(size = 2))+scale_color_viridis(opt
浏览 90提问于2021-04-16得票数 0
回答已采纳
我试图通过以下方法突出显示y值最低的点: 1)从这一点向下画一条线到x轴，另一条线画到y轴；2)在x轴和y轴上分别添加一个带有这个点的x和y值的手动勾标。除两个轴上的自动滴答标记外，还必须添加此手动刻度标记。
样本数据：
df <- data.frame(x=1:100,y=rnorm(100,10,1))
ggplot(df) +
geom_point(aes(x=x,y=y))
编辑：
下面是我正在尝试的一个例子：
浏览 0提问于2018-04-04得票数 1
回答已采纳
1回答
有谁能帮我在or图中添加第二个y轴，或者将我所做的两个单独的g轴组合起来呢？(附r码)
data: Dataframe = Deals1包含三列(年份=日期，每年的事务数量= N，以及每年的总事务值= total_tvalue)。
数据集包括22行(2000-2021年)，数字og事务从50到500不等，事务值从100.000到800.000不等。
谢谢!
# Two seperate plots
plot1 = ggplot(Deals1, aes(x=Date, y=N)) + geom_bar(stat = "identity")
plot2 = ggplot(De
浏览 7提问于2022-05-12得票数 0
回答已采纳
3回答
上下文
我想用相同的图例在同一页上绘制两个ggplot2。描述了如何做到这一点。这看起来已经很不错了。但是..。在我的示例中，我有两个具有相同x轴和不同y轴的图。当y轴的范围至少是其他图的10倍时(例如，10000而不是1000时)，ggplot2 (或grid?)不能正确对齐绘图(请参阅下面的输出)。
问题
如何使用两个不同的y轴对齐绘图的左侧？
示例代码
x = c(1, 2)
y = c(10, 1000)
data1 = data.frame(x,y)
p1 <- ggplot(data1) + aes(x=x, y=y, colour=x) + geom_line()
y =
浏览 6提问于2011-08-19得票数 14
回答已采纳
1回答
我有两个不同x轴但y轴相同的曲线图。每个x轴的顺序必须保持这种方式。我想通过在底部和顶部各有一个x轴来将两个图收敛为一个。
plot1 <- ggplot(df1, aes(x = Target1, y = RT1)) + geom_point() + geom_line(aes(group = 1))
plot2 <- ggplot(df2, aes(x = Target2, y = RT2)) + geom_point() + geom_line(aes(group = 1))
怎样才能得到我想要的图？
浏览 9提问于2018-01-17得票数 0
在我的应用程序中，am用"CPTScatterPlotFieldY“和”CPTScatterPlotFieldX“绘制多条线，.I可以在X和Y1之间画线。
现在，我想在X和Y2之间划出界线。如何在:numberForPlot:“委托中编码。我使用了X Y1的下面的代码。
-(NSNumber *)numberForPlot:(CPTPlot *)plot field:(NSUInteger)fieldEnum recordIndex:(NSUInteger)index {
NSDictionary * dic = [self.growthArr objectAtInde
浏览 2提问于2015-01-30得票数 1
回答已采纳
数据链接：
代码：
distevyield <- read.csv(file = "F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_DistEVYield.csv", header=TRUE, sep=",", na.string="NA", dec=".", strip.white=TRUE)
str(distevyield)
浏览 1提问于2013-03-04得票数 1
回答已采纳
上下文
我有一些数据集/变量，我想绘制它们，但我想以一种紧凑的方式这样做。要做到这一点，我希望他们共享相同的y轴，但不同的x轴，因为不同的分布，我想要一个x轴被对数缩放，另一个线性缩放。
示例
假设我有一个长尾变量(我希望在绘制x轴时进行日志缩放)：
library(PtProcess)
library(ggplot2)
set.seed(1)
lambda <- 1.5
a <- 1
pareto <- rpareto(1000,lambda=lambda,a=a)
x_pareto <- seq(from=min(pareto),to=max(pareto),le
浏览 3提问于2013-02-07得票数 24
回答已采纳
我有一个这样的数据帧： ID <- c("A1", "A2", "A3", "A4", "A5", "A6")
group <- c("Cats", "Cats", "Cats", "Dogs", "Dogs", "Dogs")
value <- c(5, 10, 20, 5, 15, 30)
data <- data.frame(ID, group, value) 当我使用以
浏览 12提问于2019-06-20得票数 0
我有两个数据框架，我想要从他们产生3个情节，并将他们放在一个pdf文件作为一个单一的列。
我希望所有的图都有相同的x轴限制(基本上是相同的x轴)，甚至认为它们的名称和获取方式不同。
数据文件看起来是这样的：
d1
X Y Z
0.04939317 -0.4622222 13651
0.03202451 -0.4261000 13401
0.09950793 -0.3233025 13151
0.11548556 -0.4637981 12486
0.09817597 -0.4751886 12236
0.15770701 -0.5819355
浏览 5提问于2012-11-09得票数 0
我有两个图，一个放在另一个上面，用下面的方式：
library(ggplot2)
library(gridExtra)
p1 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p2 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p2 <- p2 + facet_grid(cyl ~ .)
grid.arrange(p1, p2, ncol=1)
为此，我需要顶部和底部图形的x轴对齐，但是由于左侧的条带，多面图形比顶部图形更窄。我可以使用以下命令使该条带不可见：
theme(strip.
浏览 2提问于2013-06-17得票数 16
回答已采纳
我使用ggplot制作了一个带有两个变量的like图，但我需要添加一个辅助y轴，并将其赋给其中一个变量("volt")。
我还想指定次要y轴的范围(上限和下限)，以及中断-就像我对y主轴所做的那样。
我的两个变量是"Sr“和"volt”。
我不想使用不同的数据帧，然后合并图形。
你们有人知道怎么做吗？哦，我必须补充说，我是一个绝对的初学者！
谢谢，佩德罗
ggplot(data = k, aes(x = Dist)) +
geom_line(aes(y = Sr), colour="blue") +
geom_line(aes(y = volt)
浏览 12提问于2017-07-13得票数 0
在下面的例子中，我有一个简单的平均值图，X轴和Y轴都有标准偏差条。我想控制误差条的宽度，以便两个轴始终绘制相同的大小。
理想情况下，我希望条形图的宽度/高度与与最终绘图尺寸无关的符号大小相同(即，在本例中cex = 3)。有没有办法做到这一点？
# Load required packages:
library(ggplot2)
library(plyr)
# Create dataset:
DF <- data.frame(
group = rep(c("a", "b", "c", "d"),each=10),
浏览 1提问于2017-11-07得票数 6
我需要排除一些观察低于某一阈值的堆叠条形图所做的ggplot2。
我的dataframe示例：
我的代码：
ggplot(df, aes(x=reorder(UserName,-Nb_Interrogations, sum), y=Nb_Interrogations, fill=Folder)) +
geom_bar(stat="identity") +
theme_bw()+
theme(legend.key.size = unit(0.5,"line"), legend.position = c(0.8,0.7)) +
lab
浏览 5提问于2022-02-09得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
