更改 ggplot2 y 轴值

Question

请帮我。 我在 R 中有以下数据：我有从第 0 天到第 7 天的三组生物的值，它们代表这些组每天的种群平均值。

这是我的数据：

https://docs.google.com/spreadsheets/d/15-XXT6jOSKZs0FS14FScnHMm0Qd19N-x/edit#gid=377184551

并试图按照下一页上的示例进行操作； https://statisticsglobe.com/plot-all-columns-of-data-frame-in-r ，但我得到的图表在 y 轴上给出了数据值，并且绘制的线也被连接起来。 我想为每个组（三个组）设置单独的行，并且在 y 轴上也有一个比例，而不是绘图值。 为每个组绘制单独的值会在 y 轴上给出相同的值而不是比例。 然而，我希望 y 轴值从第 0 天的值开始，并一直向上上升到第 7 天，这与我现在的混合情况不同。 我使用的代码如下：

数据和代码

growth <- data.frame(
  stringsAsFactors = FALSE,
               day = c("Day 0","Day 1","Day 2",
                       "Day 3","Day 4","Day 5","Day 6","Day 7"),
         wild_type = c(6, 9.8, 69.53, 84.67, 99.33, 145.33, 147.33, 121.8),
           t7_cas9 = c(6, 8.57, 68.83, 85.5, 98.25, 144.67, 137.5, 120.5),
              ip6k = c(6, 6.5, 49.67, 56, 70.5, 127.5, 123.67, 111.33)
)

data_ggp <- data.frame(x = growth$day,                  
  y = c(growth$wild_type, growth$t7_cas9, growth$ip6k),
  group = c(rep("Wild_Type", nrow(growth)), 
            rep("T7_Cas9", nrow(growth)), 
            rep("IP6K-+", nrow(growth))))

ggp <- ggplot(data_ggp, aes(x, y, col = group, group = 1)) +
       geom_line()
ggp

p1 <- ggp + facet_grid(group ~ .)
p1

但是，我想要的是：

Answer 1

尝试：

scale_y_continuous(breaks = seq(1, 7, 1), limits = c(0, 7), labels = c())

我想你可以玩转标签参数； 也不确定您的数据，但一些转换（例如日志）可能有助于更好地分离数据！

Answer 2

您是否正在寻找这样的解决方案：

library(tidyverse)

df %>% 
  pivot_longer(-Day) %>% 
  ggplot(aes(x = Day, y = value, group=name, color = name))+
  geom_line(size=1)

与刻面

library(tidyverse)

df %>% 
  pivot_longer(-Day) %>% 
  ggplot(aes(x = Day, y = value, group=name, color = name))+
  geom_line(size=1)+
  facet_grid(name ~ .)

数据：

df <- structure(list(Day = c("Day 0", "Day 1", "Day 2", "Day 3", "Day 4", 
"Day 5", "Day 6", "Day 7"), Wild_Type = c(6, 9.8, 69.53, 84.67, 
99.33, 145.33, 147.33, 121.8), T7_Cas9 = c(6, 8.57, 68.83, 85.5, 
98.25, 144.67, 137.5, 120.5), IP6K = c(6, 6.5, 49.67, 56, 70.5, 
127.5, 123.67, 111.33)), class = "data.frame", row.names = c(NA, 
-8L))