- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个不断变化的 df,并且我正在对不同的值 c
进行分组。使用 ggplot2,我使用以下代码绘制它们,以获得具有多个线性回归线(geom_smooth)的散点图
ggplot(aes(x = a, y = b, group = c)) +
geom_point(shape = 1, aes(color = c), alpha = alpha) +
geom_smooth(method = "lm", aes(group = c, color = c), se = F)
现在我想在图中的每条 geom_smooth 线上显示一个带有 c 组
的 值
的标签
。这必须是动态的,因为当我的 df 更改时我无法编写新代码。
示例:我的 df
看起来像这样
a b c
----------------
1.6 24 100
-1.4 43 50
1 28 100
4.3 11 50
-3.45 5.2 50
所以在这种情况下,我会在图中得到 3 条具有不同颜色的 geom_smooth 线。
现在我只想在带有 c = 100
组的 geom_smooth 旁边添加一个带有 "100"
的文本标签和一个带有 的文本标签>“50”
到组c = 50
的线,依此类推...随着新组在 df 中引入,新的 geom_smooth 线被绘制并需要标记.
绘图的完整代码:
ggplot(aes(x = a, y = b, group = c), data = df, na.rm = TRUE) +
geom_point(aes(color = GG, size = factor(c)), alpha=0.3) +
scale_x_continuous(limits = c(-200,2300))+
scale_y_continuous(limits = c(-1.8,1.5))+
geom_hline(yintercept=0, size=0.4, color="black") +
scale_color_distiller(palette="YlGnBu", na.value="white") +
geom_smooth(method = "lm", aes(group = factor(GG), color = GG), se = F) +
geom_label_repel(data = labelInfo, aes(x= max, y = predAtMax, label = label, color = label))
最佳答案
如果您选择要标记线条的位置,则可能可以做到这一点。下面,我将它们设置为每行最右端的标签,并使用 ggrepel
来避免标签重叠:
library(ggplot2)
library(ggrepel)
library(dplyr)
set.seed(12345)
df <-
data.frame(
a = rnorm(100,2,0.5)
, b = rnorm(100, 20, 5)
, c = factor(sample(c(50,100,150), 100, TRUE))
)
labelInfo <-
split(df, df$c) %>%
lapply(function(x){
data.frame(
predAtMax = lm(b~a, data=x) %>%
predict(newdata = data.frame(a = max(x$a)))
, max = max(x$a)
)}) %>%
bind_rows
labelInfo$label = levels(df$c)
ggplot(
df
, aes(x = a, y = b, color = c)
) +
geom_point(shape = 1) +
geom_smooth(method = "lm", se = F) +
geom_label_repel(data = labelInfo
, aes(x= max
, y = predAtMax
, label = label
, color = label))
关于r - 为 geom_smooth 线创建动态标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37995552/
出于某种原因,在我的图表中,geom_smooth 线的颜色与阴影区域不同。我不确定是什么原因造成的。例如,蓝色阴影的 Retired 有一条绿线,而绿色阴影的 Unsigned 有一条蓝线。事件状态
我有以下 ggplot2 代码,可以绘制不同阶数的多个多项式拟合: library(ggplot2) set.seed(1234) n = 400 x = rnorm(n, sd=0.4) y = -
如何制作 ggplot 图 geom_smooth(method="lm"),但前提是它符合某些标准?例如,如果我只想在斜率具有统计显着性的情况下画线(即 lm 拟合中的 p 小于 0.01)。 编辑
我在 R 中计算了二项式回归: Call: glm(formula = cbind(success, failure) ~ x * f, family = "binomial", data =
这是一些数据和情节: set.seed(18) data = data.frame(y=c(rep(0:1,3),rnorm(18,mean=0.5,sd=0.1)),colour=rep(1:2,1
我正在使用 ggplot2 中的 geom_smooth()。 在 Hadley Wickham 的书(“ggplot2 - Elegant Graphics for Data Analysis”)中
您可以非常轻松地在 ggplot2 中扩展回归线: c =init_range[1]] ggplot2:::predictdf.default(model, xseq[-length(xseq
在查看this时问题,我无法为 geom_smooth 指定自定义线性模型。我的代码如下: example.label <- c("A","A","A","A","A","B","B","B","B"
我正在努力使用 geom_smooth 来创建几何平滑线。下面我报告代码: library(ggplot2) #DATAFRAME RawData <- data.frame("Time" = c(0
是否可以让geom_smooth产生单调递减函数? 第一个例子看起来是单调递减的: library(tidyverse) df <- structure(list(x = c(-55, 11, 19,
这个问题在这里已经有了答案: ggplot - Add regression line on a boxplot with binned (non-continuous) x-axis (1 个回答)
我正在绘制一些数据并具有以下代码: ggplot(aes(x = x, y = y), data = data) + geom_point(alpha = 1/15, color = 'blue'
我想用ggplot2建立一个情节。因此,我使用geom_line来可视化线,并使用geom_smooth来显示特定索引的最小-最大范围。 使用了两个数据框,第一行包含日期(例如:2013-02-04)
如果我添加 geom_smooth,那么我会在 shape 图例中得到不同颜色的矩形,而不是黑色圆圈。我怎样才能防止这种情况发生?这是 sample code . library(ggplot2) d
我正在寻找两个变量之间的比较图,重叠两个产品的 geom_smooth()。测量力理论的起点是 (x=0; y=0) 但是当我制作图表时,蓝色回归线是用 geom_smooth() 不传递坐标 (0;
如何在 geom_smooth() 中改变线条边框的颜色? library(ggplot2) mtcars$cyl <- as.factor(mtcars$cyl) ggplot(mtcars, ae
我有如下数据: library(quantreg) library(ggplot2) data <- structure(list(country_mean_rep = structure(c(73.
这个问题在这里已经有了答案: R stat_smooth all points (1 个回答) 关闭4年前。 我正在绘制一个包含 3 个不同类别的图表,这些类别由不同的颜色表示。我想要一条曲线来表示总
我有一个小问题,我自己无法解决这个问题。 我有一个简单的数据框,我想用 ggplot2 绘制它.当我使用变量 重量 作为一个因素,我得到 x 轴上的所有值,s。 plot 2,但当我将它用作整数时,s
使用以下代码: library(ggplot2) ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point(aes(colour=factor(cyl)))
我是一名优秀的程序员,十分优秀!