在我的R图中插入三条水平线
在R语言中，可以使用函数abline()来在图形中插入水平线。要在R图中插入三条水平线，可以按照以下步骤进行操作：
- 创建一个基础的R图形，可以使用
plot()函数或其他绘图函数来创建。 - 使用
abline()函数来插入水平线。该函数的参数h用于指定水平线的位置，可以是一个数值或一个向量。 - 重复步骤2，插入三条水平线。
下面是一个示例代码：
# 创建一个基础的R图形
plot(1:10, 1:10, type = "n", xlab = "X", ylab = "Y")
# 插入三条水平线
abline(h = 3, col = "red") # 第一条水平线，位置为3，颜色为红色
abline(h = 5, col = "blue") # 第二条水平线，位置为5，颜色为蓝色
abline(h = 7, col = "green") # 第三条水平线，位置为7，颜色为绿色在上述示例中，我们首先使用plot()函数创建了一个基础的R图形，然后使用abline()函数分别插入了三条水平线，分别位于y轴的位置3、5和7。每条水平线的颜色也可以通过col参数进行指定。
请注意，以上示例中的代码仅用于演示如何在R图中插入水平线，实际应用中可能需要根据具体需求进行适当的修改和调整。
关于R语言的更多绘图函数和用法，可以参考腾讯云提供的R语言开发文档：R语言开发文档。
相关·内容
1回答
我有一个包含5列价格数据的xts。我希望将每列数据绘制为折线图，并为每列添加一条唯一的水平线。我的代码是：
pColours <- sequential_hcl(5, palette = "Viridis")
target = c(1,3,5,7,9)
for (i in 1:5) {
mydata <- xts[ ,i]
plot(mydata, col = pColours[i], main = "blah blah", ylim = (0,8),
major.ticks = "auto", min
浏览 24提问于2020-06-11得票数 1
2回答
我喜欢用它来准备绘图，添加水平线，最后绘制条形图。当我像下面这样做的时候，R将每件事情绘制两次，这看起来不是很好。对于正态图，我搜索的等效结果是：plot(NULL, xlim=c(1,2), ylim=c(3,5), axes=F)
data = c(1,4,2)
barplot(data)
abline(h=seq(0,5,1), col="red")
barplot(data, add=T)
我更喜欢有一个基本解决方案。
浏览 22提问于2017-08-29得票数 8
回答已采纳
1回答
我正试图用abline在绘图上绘制一条水平线。
守则如下：
plot(c(-2,3), c(-1,5), type = "n", xlab = "x", ylab = "y", asp = 1)
abline(h = 0, v = 0, col = "gray60")
我得到的输出是
我要找的是
如何使abline绘制的线限制在图2所示的区域内。
浏览 1提问于2015-02-05得票数 4
回答已采纳
1回答
R中的ts()对象似乎不允许您使用ylim，因此我无法为我的时间序列设置自定义的y轴范围。如果我使用ylim，就会得到一个未使用的变量错误。这就是我绘制时间序列的方法：
dataTimeSeries <- ts(newru$Value, start = c(input$years[1]), end = input$years[2])
plot.ts(dataTimeSeries)
abline(h=amount$toxicityLevels, col="blue") #add horizontal line
我试图通过abline函数向时间序列图中添加一条水平线，但有
浏览 0提问于2018-03-17得票数 1
回答已采纳
1回答
我有多个时间序列数据图，我需要在每个图中有一条水平线，但有不同的水平值(es )。第一幅图：h=50，第二幅图：h=48.)
我尝试了abline(h=50...，我得到了每个地块的水平线。我尝试了abline(h=c(50,48...，在每个地块中我得到了多条水平线。
我不知道如何获得plot.zoo索引，以便在第一幅图中绘制h=50，在第二幅图中绘制h=48等等。
library(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)
# plot with single line
my.panel <- function(x,
浏览 2提问于2013-10-11得票数 8
1回答
如何使用plot使R图中的网格线不超出地块的边界？即需要定义网格线的起源和结束。
在给定的示例中，我希望grid绘制的网格线和abline绘制的y=7.5网格线从y轴延伸到框的右侧。
plot(1:10,1:10,type = "n")
abline(h = 7.5, v = 0, col = "gray60", lty = 3)
grid(10,10)
浏览 0提问于2017-07-05得票数 1
回答已采纳
1回答
我想填充两条水平线上方和下方的区域。
这就是我的想法：
par(mfrow=c(1,2))
x<-seq(1,24,1)
y<-rnorm(24, 10, 2)
for(i in 1:2) {
plot(x,y,ylim=c(4,16))
lines(x,y)
abline(h=11)
abline(h=9)}
hyper<-y
hyper[hyper<11]<-11
polygon(x,hyper,col="gray")
我的主要问题是与水平线的相交是不正确的。
浏览 4提问于2014-05-18得票数 6
1回答
我开始对股票配对(配对交易)进行一些分析，下面是我编写的用于生成图形的函数(下面列出了pairs.report)。
我需要在一次绘图中绘制三条不同的线。我列出的函数做了我想要它做的事情，但是如果我想要在x轴(时间线)上进行精细的定制，它将需要一些工作。实际上，它只打印x轴上的年份(对于10年的数据)或月份(对于6个月的数据)，没有对刻度进行格式化。
如果我使用xts对象，即如果我使用
plot(xts-object-with-date-asset1-asset2, ...)
而不是
plot(date, asset2, ...)
我立即得到了一个格式良好的x轴(以及网格和方框)，但随后使用po
浏览 0提问于2011-08-11得票数 6
回答已采纳
如何使用R将RMSE、slope、intercept和r^2添加到绘图中？我已经附加了一个带有样本数据的脚本，它的格式与我的真实数据集类似--不幸的是，我处于停滞状态。有没有更简单的方法将这些统计数据添加到图表中，而不是从公式创建对象并将其插入到text()中？理想情况下，我希望统计数据堆叠在图形上显示。我如何才能做到这一点呢？
## Generate Sample Data
x = c(2,4,6,8,9,4,5,7,8,9,10)
y = c(4,7,6,5,8,9,5,6,7,9,10)
# Create a dataframe to resemble existing data
my
浏览 1提问于2012-10-29得票数 8
回答已采纳
2回答
我正在收集一段时间内的数据，我想在同一个图上进行两项研究。对我来说，问题是随着时间的推移，如何收集数据并将其添加到绘图中的顺序。为了便于示例，以下代码将同一组随机值绘制两次，并在每个研究中添加两行：
# 2 figures arranged in 2 rows
par(mfrow=c(2,1))
set.seed(123)
A = sample(seq(from = -2, to = 2, by = 0.1), size = 10, replace = TRUE)
plot(seq(1:10),A, main="Plot 1")
abline(1.2,0, col="
浏览 0提问于2013-06-12得票数 0
回答已采纳
2回答
我正处于规划一个函数的早期阶段，该函数需要在绘图中交互移动十字光标。以下是一些基本的图形调用，它们将以一种非常笨拙的方式完成此任务：
set.seed(9)
df <- data.frame(x = rnorm(10), y = rnorm(10))
plot(df)
abline(v = 0.5, h = 1.2, col = "red") # 'original' crosshairs
loc <- locator() # click location in plot, then ESC
abline(v = 0.5, h = 1.2, col
浏览 3提问于2013-10-19得票数 0
1回答
我正在创建一个图，我在X轴上绘制变量与Y轴上的变量，我还添加了变量的直方图。我使用abline()在图中添加了一个趋势线。
问题是，在地块区域中，它似乎不尊重xlim = c(0, 20)，因为它超出了x轴的范围。我试着玩xpd选项，但没有结果。接下来，我尝试使用不同的par()选项，但没有发现任何有助于解决这个问题的方法。
我想要的是趋势线是x轴的精确长度。任何帮助都是非常感谢的。在这种特殊情况下，趋势线几乎是平的，但是当我对其他变量做同样的操作时，斜率会发生变化。
MWE -注:我只提供了15个数据点来说明这个问题，所以图表将不同于所提供的图像。
df.data <- da
浏览 1提问于2017-09-05得票数 2
回答已采纳
当我使用abline()在绘图上绘制网格线时，会在数据上绘制网格线。
有没有一种方法可以在数据后面绘制abline()线？我觉得这样看起来会更好。
示例：
x <- seq(0, 10)
y <- x
plot(x, y, col = 'red', type = 'o', lwd = 3, pch = 15)
abline(h = seq(0, 10, .5), col = 'lightgray', lty = 3)
abline(v = seq(0, 10, .5), col = 'lightgray', lty =
浏览 3提问于2011-09-01得票数 34
回答已采纳
2回答
我正试着在Rmarkdown里做个练习。我想这么做：
regresion <- lm(sbp ~ bmi, data = framingham)
plot(framingham$sbp, framingham$bmi, xlab = "SBP", ylab = "BMI")
abline (regresion)
当我执行这个块时，RStudio的绘图面板中没有显示，然后abline显示：
Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) : plot.new has not
浏览 0提问于2016-11-15得票数 0
回答已采纳
在R中的图形中将文本框放在线条上方这么多厘米/英寸的位置是可能的吗？(不改变图形的比例)。因此，我使用plot绘制图像，并希望使用函数: text()指定文本，但我始终希望文本位于箭头上方1 im处的指定x坐标处。
浏览 0提问于2017-06-02得票数 0
如何设置数据点的颜色取决于数据点是否高于或低于1:1行？
对于垂直线或水平线来说，这样做非常简单，但是对于1:1的直线，如何做到这一点呢？
下面是如何在水平线上这样做：
x <- c(2,4,6,8,10)
y <- c(2,4.9,5,9,12)
df <- cbind(x,y)
plot(df[,1], df[,2], xlim=c(0,15), ylim=c(0,15), pch = 21,
bg =ifelse(df[,2]<=5,"black","red"), col = "black", cex
浏览 2提问于2015-11-06得票数 1
回答已采纳
我想绘制下面的逐段函数，但我总是得到错误
a <- function(x) {ifelse(( x < -1), 0, ifelse((-1 < x & x < 2),(x^3 + 1)/9, ifelse((x > 2), 1, NA))) }
plot(a, xlim=c(-5, 5), ylim = c(-4, 7), col = "red")
abline(v = 0, h = 0)
浏览 2提问于2020-10-16得票数 0
我有一个用R绘制的位置商图，并希望沿着Y= 1的地方画一条水平线。我有代码abline(h=1, col="black")，但当绘制这条线时，它与Y轴相交，并划出我的Y轴标签。
有人知道如何在Y轴结束这条线，而不是让它相交吗？
非常感谢。
浏览 3提问于2014-08-30得票数 0
回答已采纳
3回答
我使用包hexbin生成一个图
# install.packages("hexbin", dependencies=T)
library(hexbin)
set.seed(1234)
x <- rnorm(1e6)
y <- rnorm(1e6)
hbin <- hexbin(
x = x
, y = y
, xbin = 50
, xlab = expression(alpha)
, ylab = expression(beta)
)
## Using plot method for hexbin objects:
浏览 6提问于2013-03-19得票数 7
回答已采纳
1回答
我正在构建一个闪亮的应用程序。在下拉菜单中，我有一个因子变量的类别。我认为问题在服务器上，但我不知道如何修复它。
另外，我想在直方图中添加一条垂直的颜色，当选择的颜色是黄色时，在15，而在直方图中选择的颜色是红色时，在20的垂直线。你能帮我查一下密码吗？谢谢
library(shiny)
# Creating a fake data frame
categories <- c("A", "B", "c")
values <- c(12, 15, 20)
data <- merge(categories, values)
#
浏览 0提问于2017-10-24得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
