R 如何在GALT包的函数&geom_x样条线中调整线宽

发布于02月05日

I was smoothing the line of my graph with "geom_xspline", it works quite well, but the problem is that you can't adjust the width of the line. I want the widest line

附件为数据:

AÑO <- seq(2005,2024, by = 1)
PIA_increase <- c(-30501,24337, -23296,12718,314,  14499,  86065, -54206,66258,  20795,  20901, 107653,
                          -8149 , 91357 ,  152 ,-58815  , 0, 229997,    378 ,204403
                          ) 
Congreso_1 <- data.frame(AÑO, PIA_increase)

library(ggalt)

ggplot(Congreso_1, aes(AÑO,PIA_increase))+
  geom_point(color = "red")+
  geom_xspline(position = "identity",spline_shape=-0.4, color = "red", size = 1)+ aes(lwd = 2)+
  theme(panel.background = element_rect(fill = "white"))

我try 添加"aes(lwd = 2)"功能，但线条变得太粗，无法调整.

enter image description here

我希望能够在1到1.5之间调整线

推荐答案

主要的问题是，ggalt不能解释ggplot2 3.4.0引入的linewidth美学.同样的问题已经在GH上提交了.

使用+ aes(lwd = 2)是"修复"问题的变通办法，但您还必须使用scale_linewidth_identity设置linewidth的比例.否则，将应用线条宽度的默认比例.

library(ggalt)

ggplot(Congreso_1, aes(AÑO, PIA_increase)) +
  geom_point(color = "red") +
  geom_xspline(
    position = "identity", 
    spline_shape = -0.4,
    color = "blue"
  ) +
  aes(lwd = 2) +
  scale_linewidth_identity() +
  theme(panel.background = element_rect(fill = "white"))
#> Warning: Using the `size` aesthetic in this geom was deprecated in ggplot2 3.4.0.
#> ℹ Please use `linewidth` in the `default_aes` field and elsewhere instead.
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.

作为参考，这里是应用了默认比例的绘图:

ggplot(Congreso_1, aes(AÑO, PIA_increase)) +
  geom_point(color = "red") +
  geom_xspline(
    position = "identity", 
    spline_shape = -0.4,
    color = "blue"
  ) +
  aes(lwd = 2) +
  theme(panel.background = element_rect(fill = "white"))