8

geom_point サイズに条件を追加しようとしており、以下に例を貼り付けました。n_in_stat が 4 以上の場合は geom_point のサイズを 2、n_in_stat が 4 未満の場合は size = 5 にしたいのですが、geom_point 内に ifelse 文を入れてみましたが失敗しました。おそらく、ここに論理演算子を含めることはできず、data.frame に新しい列を作成し、サイズをそれに設定する必要がありますか?

geom_point(size = ifelse(n_in_stat < 4, 5, 2)) + # ifelse でサイズを設定しようとしています

geom_point(aes(size = n_in_stat)) + # 線形にスケーリングされたオリジナル

library(ggplot2)

# Create a long data.frame to store data...
growth_series = data.frame ("read_day" = c(0, 3, 9, 0, 3, 9, 0, 2, 8), 
"series_id" = c("p1s1", "p1s1", "p1s1", "p1s2", "p1s2", "p1s2", "p3s4", "p3s4", "p3s4"),
"mean_od" = c(0.6, 0.9, 1.3, 0.3, 0.6, 1.0, 0.2, 0.5, 1.2),
"sd_od" = c(0.1, 0.2, 0.2, 0.1, 0.1, 0.3, 0.04, 0.1, 0.3),
"n_in_stat" = c(8, 8, 8, 8, 7, 5, 8, 7, 2)
)

# Plot using ggplot...
ggplot(data = growth_series, aes(x = read_day, y = mean_od, group = series_id, color = series_id)) +
geom_line(size = 1.5) +
geom_point(aes(size = n_in_stat)) +
geom_errorbar(aes(ymin = mean_od - sd_od, ymax = mean_od + sd_od), size = 1, width = 0.3) +
xlab("Days") + ylab("Log (O.D. 730 nm)") +
scale_y_log2() +
scale_colour_hue('my legend', breaks = levels(growth_series$series_id), labels=c('t1', 't2', 't3'))
4

2 に答える 2

6

scale_size_manualは、離散変数のサイズを設定します。

geom_point(aes(size =n_in_stat>4)) + scale_size_manual(values=c(2,5))
于 2010-03-02T17:44:27.183 に答える
2

また、関数を使用することもできます：

ff <- function(x){ifelse(x < 4, 5, 2)}

そして変更

geom_point(aes(size = n_in_stat)) +

と

geom_point(aes(size = ff(n_in_stat))) +
于 2010-03-02T09:12:13.340 に答える