PROSAGA码农传奇-模型可视化-随时间变化的绘图测量[ggplot2]

<div class =“post-text”itemprop =“text”>
  <P>
    我不是很清楚
    <EM>
      怎么样
    </EM>
     你想要想象你的数据，但也许是这样的？
  </p>
   <pre>
    <code>
      library(tidyverse)
df %>%
    rowid_to_column("patient") %>%
    mutate(patient = factor(patient)) %>%
    gather(key, val, -patient) %>%
    ggplot(aes(x = key, y = val, colour = patient, group = patient)) +
    geom_line()

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/W86BL.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/W86BL.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
   <pre>
    <code>
      df %>%
    rowid_to_column("patient") %>%
    mutate(patient = factor(patient)) %>%
    gather(key, val, -patient) %>%
    ggplot(aes(x = key, y = val, colour = patient, group = patient)) +
    geom_line() +
    facet_wrap(~ patient)

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/LHR9t.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/LHR9t.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
  <HR />
  <H2>
    样本数据
  </H2>
   <pre>
    <code>
      df <- read.table(text =
    "  A1    A2    A3    A4    A5
   2     2     2     2     2
   3     3     3     3     4
   3     3     3     3     4
   1     1     2     2     1
   3     2     2     3     2
   4     4     4     3     4", header = T)

</code>
  </pre>
  <P>
    要删除x轴，您可以这样做
  </p>
   <pre>
    <code>
      df %>%
    rowid_to_column("patient") %>%
    mutate(patient = factor(patient)) %>%
    gather(key, val, -patient) %>%
    ggplot(aes(x = key, y = val, colour = patient, group = patient)) +
    geom_line() +
    facet_wrap(~ patient) +
    theme(
        axis.title.x = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank())

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/Zc11m.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/Zc11m.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
  <P>
    请注意，移除x轴可能不是很明智。
  </p>
</DIV>