列を使用して塗りつぶしのないプロットに図形を追加

Question

こんにちは私はこのプロットを持っており、datデータフレームの "shape"列を使って点の形状を決定したいと考えています。 2点は形状= 16で塗りつぶし、残りは形= 1でハローですが、動作していないようです。何かご意見は？

time = as.POSIXct(c("2016-05-01 00:00:01","2016-05-01 00:00:02","2016-05-01 00:00:03","2016-05-01 00:00:01","2016-05-01 00:00:02","2016-05-01 00:00:03"), tz = "GMT") 
    group = c("A","A","A","B","B","B") 
    value =c(NA, 99, 100, NA, 101, 100) 
    size =c(NA, 3, 10, NA, 5, 4) 
    dat =data.frame(time= time, group =group, value =value ,size =size, shape= c(1,16,16,1,1,1)) 
    dat 
    ggplot(dat, aes(x=time, y = value, group = group)) +geom_line() + 
     geom_point(aes (color = as.factor(group), size = size), shape=shape) + 
     scale_x_datetime(date_labels = "%H:%M:%S", breaks= date_breaks("5 min")) # + scale_fill_manual(values=c(NA,NA)) doesnt work 

Answer 1

：ここ

は、あなたが持っていることを期待するものを生成（必要がある）は、コードです。実際の形状として渡された値を使用するようにscale_shape_identityを使用する必要があります。

time = as.POSIXct(c("2016-05-01 00:00:01","2016-05-01 00:00:02","2016-05-01 00:00:03","2016-05-01 00:00:01","2016-05-01 00:00:02","2016-05-01 00:00:03"), tz = "GMT") 
group = c("A","A","A","B","B","B") 
value =c(NA, 99, 100, NA, 101, 100) 
size =c(NA, 3, 10, NA, 5, 4) 
dat =data.frame(time= time, group =group, value =value ,size =size, shape= c(1L,16L,16L,1L,1L,1L)) 
dat 
library(ggplot2) 
ggplot(dat, aes(x=time, y = value, group = group)) +geom_line() + 
    geom_point(aes (color = as.factor(group), size = size , shape=shape)) + 
    scale_shape_identity() 

Answer 2

shapeは審美的ではありません。また、形状パラメータを扱うには、それを因子に変換する必要があります。あなたが整形する要因を渡す必要はありません

time = as.POSIXct(c("2016-05-01 00:00:01","2016-05-01 00:00:02","2016-05-01 00:00:03","2016-05-01 00:00:01","2016-05-01 00:00:02","2016-05-01 00:00:03"), tz = "GMT") 
group = c("A","A","A","B","B","B") 
value =c(NA, 99, 100, NA, 101, 100) 
size =c(NA, 3, 10, NA, 5, 4) 
dat =data.frame(time= time, group =group, value =value ,size =size, shape= factor(c(1,16,16,1,1,1))) 
dat 
ggplot(dat, aes(x=time, y = value, group = group)) +geom_line() + 
    geom_point(aes (color = as.factor(group), size = size , shape=shape))