3

それぞれが 1 つのラボ チームのデータ (2 つの変数/チーム) を表す 3 つの線を (1 つのグラフに) プロットする必要があります。理想的には、グラフは見た目が美しく (したがって ggplot2 を使用します!)、なおかつ以下に示す折れ線グラフに似ている必要があります。gggplot2 ライブラリを使用して複数の線を 1 つのグラフにプロットする方法がわかりません。ggplot2 ライブラリに関する私の現在の知識/スキルは低いですが、駆け出しの取り組みを以下に示します。

http://www.harding.edu/fmccown/r/#linecharts

編集: 各行は、次のような 2 つのベクトルから構成されます。

temp = c(4, 25, 50, 85, 100) 
enzyme_activity = c(0.543, 0.788, 0.990, 0.898, 0.882)

x 軸に一時変数を使用し、各線を異なる色で区別できるようにします。

編集2:

amyA = c(0.091, 0.147, 0.202, 0.236, 0.074)
temp = c(4, 23, 37, 65, 100)
df = data.frame(temp, amyA)

ggplot(df, aes(x = temp, y = amyA, col = 'blue')) + geom_line()

2 番目の編集内のコードは青い線を生成せず、凡例は完全に間違っています。異なるデータで 2 つの ggplot 呼び出しを繰り返すと、1 行だけがプロットされます。

4

2 に答える 2

5

重要なことは、プロットする前にデータを整理して、データフレームに列があり、値factorのセットごとに個別の行を示すようにすることです。例えば：xy

set.seed(1)
df1 <- data.frame(e1 = sort(runif(5, 0.05, 0.25)),
                  e2 = sort(runif(5, 0.05, 0.25)),
                  e3 = sort(runif(5, 0.05, 0.25)),
                  t1 = sort(runif(5, 1, 100)),
                  t2 = sort(runif(5, 1, 100)),
                  t3 = sort(runif(5, 1, 100))
                  )
### reshape this to give a column indicating group
df2 <- with(df1,
        as.data.frame(cbind( c(t1, t2, t3),
                            c(e1, e2, e3),
                            rep(seq(3), each=5) )
                      ))
colnames(df2) <- c("temp","activity","team")
df2$team <- as.factor(df2$team)

それで

library(ggplot2)
ggplot(df2, aes(x=temp, y=activity, col=team)) + geom_line()

与える:ここに画像の説明を入力

于 2013-09-25T22:52:15.443 に答える
2

私は次のようなことをします：

library(ggplot2)
ggplot(mtcars, aes(x = wt, y = mpg, color = as.factor(cyl))) + geom_line()

ここに画像の説明を入力

より具体的なアドバイスが必要な場合は、例を拡張し、いくつかの例のデータを含め、視覚化が何を伝えるべきかに関する詳細を提供することをお勧めします.

于 2013-09-25T18:03:36.853 に答える