在ggplot中添加sec.axis
是指在绘制的图表中添加第二个坐标轴（secondary axis），用于显示不同的数据范围或不同的数据类型。这种功能通常在需要同时显示两个不同单位或不同尺度的数据时使用。
添加sec.axis的步骤如下：
- 首先，需要安装并加载ggplot2包，该包是R语言中用于数据可视化的重要工具。
- 创建一个基本的ggplot对象，可以使用ggplot()函数，并指定数据集和映射的变量。
- 使用geom函数添加要绘制的图层，例如geom_point()、geom_line()等。
- 使用scale函数来设置第一个坐标轴的标签、范围和刻度等属性，例如scale_x_continuous()、scale_y_continuous()。
- 使用sec.axis参数来添加第二个坐标轴，可以使用sec_axis()函数来设置第二个坐标轴的转换函数和标签。
下面是一个示例代码：
library(ggplot2)
# 创建一个基本的ggplot对象
p <- ggplot(data = your_data, aes(x = x_variable, y = y_variable))
# 添加要绘制的图层
p <- p + geom_point()
# 设置第一个坐标轴的属性
p <- p + scale_x_continuous(name = "X Axis", limits = c(0, 10))
p <- p + scale_y_continuous(name = "Y Axis", limits = c(0, 100))
# 添加第二个坐标轴
p <- p + sec_axis(trans = ~ . * 2, name = "Y Axis (Secondary)")
# 显示图表
print(p)在上述示例中，我们创建了一个基本的ggplot对象，并添加了一个散点图层。然后，我们使用scale_x_continuous()和scale_y_continuous()函数设置了第一个坐标轴的属性。最后，使用sec_axis()函数添加了一个第二个坐标轴，并指定了转换函数和标签。
请注意，示例中的your_data、x_variable和y_variable需要根据实际情况进行替换。
推荐的腾讯云相关产品：腾讯云服务器（https://cloud.tencent.com/product/cvm）可以用于部署和运行R语言环境，腾讯云对象存储（https://cloud.tencent.com/product/cos）可以用于存储数据集和图表文件。
相关·内容
1回答
如何在sec_axis R中对离散数据使用sec_axis()？
r、ggplot2、axes、multiple-axes
我有一些数据看起来是这样的：
height <- c(1,2,3,4,5,6,7,8)
weight <- c(100,200,300,400,500,600,700,800)
person <- c("Jack","Jim","Jill","Tess","Jack","Jim","Jill","Tess")
set <- c(1,1,1,1,2,2,2,2)
dat <- data.frame(set,person,height,wei
浏览 5提问于2017-09-04得票数 8
1回答
复制和自定义次级y轴
r、ggplot2、axis-labels
这应该很简单，但我遇到了一些错误。我想复制并自定义次要y轴的标签。
首先，这个简单的代码应该得到以下图：
ggplot(data = mpg, aes(x = displ, y = hwy)) +
geom_point() +
scale_x_continuous(sec.axis = dup_axis()) +
scale_y_continuous(sec.axis = dup_axis())
但我不知道为什么会出现以下错误(没有scale_参数，ggplot2版本为2.2.1)：
Error in .Call(rhs, f) : firs
浏览 2提问于2017-05-27得票数 6
回答已采纳
1回答
覆盖两个具有不同x和y轴尺度的and图
r、ggplot2、plot、overlay、axes
假设我有两个data.frames，如下所示：
df_1=data.frame(x=c(1:200), y=rnorm(200))
df_2=rpois(100000, 1)
df_2=data.frame(table(df_2))
df_2$df_2=as.numeric(levels(df_2$df_2))[df_2$df_2]
当我奇异地绘制它们时，我得到：
library(ggplot2)
p1=ggplot() +
geom_line(data=df_1, aes(x=x,y=y))
print(p1)
p2=ggplot() +
geom_line(data=
浏览 5提问于2020-01-10得票数 1
回答已采纳
1回答
绘制2 y轴，当它们无法缩放时
r、ggplot2、yaxis
我从沉积物岩心中获得了一些数据，并希望用OC%来绘制年龄和深度。下面是一些模拟数据：
OC<-c(0.3,0.2,0.1,0.2,0.1,0.1,0.01,0.009)
depth<-c(0,1,2,3,4,5,6,7)
age<-c(0,5,8,12,20,30,60,100)
age<-2022-age
data<-data.frame(OC,depth,age)
ggplot(data,aes(OC,age))+
geom_point()+
theme_classic()+
scale_y_continuous(limits = c(1920,
浏览 7提问于2022-11-04得票数 1
2回答
是否可以禁止标有牛仔图包R？
r、ggplot2、cowplot
我想知道是否可以在(x - top："mpg")和(y -右："wt")使用包牛仔图上的轴标签。
library(ggplot2); library(cowplot)
plot_a <- ggplot(mtcars, aes(mpg,wt)) + geom_point()
ggdraw(switch_axis_position(plot_a, axis = 'xy',keep = 'xy'))
谢谢!
浏览 2提问于2016-09-29得票数 1
回答已采纳
1回答
如何缩放Geom_bar使其与R ggplot中的重叠折线图保持一致
r、ggplot2
我正在尝试用R中的ggplot在单个图形上覆盖条形图和线形图。我的线形图工作得很好，但是数据比条形图组件的数据要大得多。 我怎样才能对这个条形图使用额外的比例，或者在一个图表中做一些让它看起来更漂亮的事情。 到目前为止，我的绘图代码如下： chart <- data.frame("QuantileName" = 1:5, "AvgLoss" = c(100, 500, 1000, 2500, 3000), "AvgFactor" = c(1.0, 1.1, 1.3, 1.4, 1.5))
Plot <- ggplot(chart,
浏览 17提问于2019-04-17得票数 0
1回答
ggplot2图X轴和Y轴的极限
r、ggplot2
我使用二级轴(缩放)来显示一个图的公制/帝国单位。我想把地块面积限制在(1500,0)和(5000,350) --这两套都是主坐标。我试过以下几种方法：
xlim(c(1500,5000)) + ylim(c(0,350))lims具有与abovecoord_cartesian(xlim = c(1500, 5000), ylim = c(0, 350))相同的参数
这些都没有改变我的阴谋。我想去掉红线突出的区域(裁剪地块)：
下面是一个使用mtcars的最小工作示例--尽管指定上限x为10，但图中显示的数据超过了该范围。我想把情节缩小到规定的限度。有办法这样做吗？
ggplot(as.
浏览 1提问于2021-07-20得票数 0
回答已采纳
1回答
ggplot2反转次级y轴
r、ggplot2
我正在创建一个图形，它在分数的主要y轴(缩放比例为0-5)和次要y轴PCR结果(缩放比例为0-45)上显示两个线状图。然而，我需要反转第二个y轴，这样45就在y轴的底部(45 =阴性PCR结果)。我可以绘制第二个y轴，但不知道如何反转它。
链接到一些虚拟数据
library(data.table)
library(ggplot2)
library(lubridate)
#Read the file you want to use for a graph
data <- fread("redditexample.csv", na.strings = c("&#
浏览 2提问于2019-07-26得票数 0
2回答
我有一个图表，它显示了从起点位置到终点位置的2圈比赛中的圈位进度。 我想修改图表，使车手的名字在左边的y轴上，这与他们的起始位置一致(即从上到下，名字将是比尔，谁先开始，玛丽亚，谁开始，克劳迪奥，谁第三开始)，他们的结束位置编号将在右侧(从上到下，第一到第三)。 我已经在这上面工作了一段时间了，但还是搞不明白。另外，如图所示，我希望图表从顶部的1到底部的3，但由于某些原因，我无法摆脱负数。非常感谢任何能提供帮助的人： ## reprex
library(ggplot2)
library(scales)
dat <- data.frame(name = c(rep("bill&#
浏览 11提问于2020-12-18得票数 2
回答已采纳
1回答
ggplot2 -添加具有不同折断和标签的辅助y轴
r、ggplot2
是否可以使用ggplot2将断点和标签手动添加到次要y轴？
(见右下角)
我希望在右边的y轴上有更紧凑的中断，代表条形图。
浏览 2提问于2017-09-04得票数 6
回答已采纳
2回答
用非单调变换使用ggplot的sec.axis
r、ggplot2
我想使用ggplot的sec.axis选项来生成一个二级X轴(称为Z)，它显示了变换Z=X+ sqrt ( X ^2-X )。这种变换一般不是单调的，而是在我的应用程序(X> 1)的X范围内是单调的。
我尝试了以下几点：
x1 = seq(1, 3.5, .1)
y = rnorm( n = length(x1) )
d = data.frame( x1, y )
library(ggplot2)
ggplot( d, aes( x=x1, y=y ) ) + geom_point() +
scale_x_continuous( sec.axis = sec_axis( ~ .
浏览 2提问于2017-06-16得票数 7
回答已采纳
1回答
用两个y比例尺绘制图形
r、ggplot2、scale
因此，我正在尝试在一个图中编译几个数据帧。对于我的x值，我有天数，对于y，我有一些事情发生的频率。我的问题是其中一个数据帧(df3)的范围从0到3，其他的从0到50。
虚拟数据帧：
day<-c(1,2,3)
b<-c(23,44,22)
c<-c(12,35,49)
d<-c(1,1,3)
df1<-data.frame(day,b)
df2<-data.frame(day,c)
df3<-data.frame(day,d)
ggplot()+
geom_line(data=df1, aes(x=day, y=df1$`b`), colo
浏览 0提问于2018-07-02得票数 5
回答已采纳
1回答
日志转换后带有自定义标签的ggplot2第二轴
r、ggplot2
下面的图有第二个带有自定义标签的x轴.
dat <- data.frame(f=seq(0.01,0.5,by=0.01),y=rnorm(50))
fPretty <- pretty(dat$f)
pPretty <- round(1 / fPretty, 2)
p1 <- ggplot(data=dat, aes(x=f,y=y))
p1 <- p1 + geom_line(color="red")
p1 <- p1 + labs(x = "Frequency")
p1 <- p1 + scale_x_contin
浏览 0提问于2018-04-10得票数 1
2回答
当两个y轴各有不同的尺度时，如何使x轴断裂？
r、ggplot2、axes
下面我提供了一个我正试图解决的问题的例子。正如你所看到的，我在图的中间有y轴的名字。有没有办法移除那些y轴的名字？提前谢谢。
library(ggbreak)
library(patchwork)
library(ggplot2)
x = c(0,0.1,0.5, 2, 3, 5, 7, 10, 100)
y1 = c(892, 1059, 1004, 1020, 1097, 903, 881,1096, 910)
y2 = c(2070, 2183, 2381, 2406, 2675, 2639, 2662, 2523, 2453)
data = data.frame(x=x, y
浏览 4提问于2022-02-20得票数 0
2回答
相同数据的两个y轴--但尺度不同
r、ggplot2、axis
我创建了一个图表，以线性单位表示数据，但以对数y尺度表示数据(代码如下)。
ggplot() +
geom_point(data=VH_lin, aes(x=VH_lin[,1], y=VH_lin[,2], colour = "green"), size=0.6) +
scale_y_log10(breaks = c(0,0.01, 0.10, 1.00, 10), limit=c(-0.01,10)) + scale_x_continuous(breaks=c(0, 2000, 4000, 6000, 8000, 10000, 12000)) +
xlab(
浏览 0提问于2018-06-26得票数 0
回答已采纳
1回答
在ggplot中添加带刻度的轴和不带标签的轴
r、ggplot2
我在ggplot中得到了以下图表： library(ggplot2)
a <- seq(1,20)
b <- a^0.25
df <- as.data.frame(cbind(a,b))
ggplot(df, aes(x = a, y = b)) + geom_point() 问:如何使用刻度将轴添加到绘图的顶部和右侧，而不是使用标签(因为标签已经在底部和左侧)，并且还可以使用白色背景？如果我使用+ theme_classic()，背景会变成白色，但顶部和右侧的轴也会被删除。
浏览 7提问于2019-04-27得票数 0
回答已采纳
2回答
当我在my图中添加第二轴时的奇怪行为
r、ggplot2
这是我之前关于类似主题的文章中的一个应用程序-- 。
假设我在ggplot下面，我想要变量y2的中轴。
library(ggplot2)
library(quantmod)
dat = data.frame(x = as.yearqtr(seq(as.Date('2002-01-01'), length.out = 17, by = '95 day')),
y1 = c(-0.0042, 0.0221, 0.0387, 0.0523, -0.0743, -0.0903, 0.0997, 0.0982, 0.0956, -0
浏览 4提问于2022-03-24得票数 0
1回答
mirror_ticks函数不适用于ggplot
r、ggplot2
我想在我的图表的四边都打勾。为此，建议使用mirror_ticks。
library(ggplot2)
library(ggplotTicks)
sp6<-ggplot(Anna_Smooth, aes(y=log10(Prob2), x=log10(AvSize)))+
geom_point( data=Anna_Smooth, aes(y=log10(Prob2), x=log10(AvSize), color=PART) )+
guides( color=FALSE)
sp8<-sp6+ labs(x=expression(paste(log(s))))+
浏览 4提问于2018-12-09得票数 0
2回答
两边ggplot2相同的刻度(不连续)
r、ggplot2
目标
使用ggplot2 (最新版本)生成一个图形，在图形的两侧复制x-轴或y轴，其中刻度不是连续的。
极小Reprex
# Example data
dat1 <- tibble::tibble(x = c(rep("a", 50), rep("b", 50)),
y = runif(100))
# Standard scatterplot
p1 <- ggplot2::ggplot(dat1) +
ggplot2::geom_boxplot(ggplot2::aes(x = x, y =
浏览 5提问于2017-07-28得票数 1
回答已采纳
1回答
为什么我的中轴参数、位置和名称被应用到主轴上？
r、ggplot2
我最近更新了一个月前用ggplot2制作的有两个y轴的图表。第二轴是将主轴转换为不同的单位，以便与文献进行比较。
现在，可能在最近的更新之后，一些次轴参数正在干扰主轴。我自己的图表相对比较复杂，但是使用iris数据集可以通过下面的示例产生同样的问题。
我将在这里提供代码来绘制框架，因为数据是不相关的。我试图包括图像，但似乎有一个严重的问题，SO的形象托管现在。
一个简单的图将y轴和标签放在左边，注意0-2之间的数据范围：
(虹膜，aes(x=Sepal.Width，y= Petal.Width))
只将100添加到原始值的第二轴可以添加到右侧，如下所示：
(x=Sepal.Width，
浏览 2提问于2018-08-08得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
