plot1 <- ggplot(samsungData, aes(x = as.factor(subject), fill = activity)) + geom_bar(colour = "black", position = "stack") + scale_fill_brewer(palette ...
確定! 回上一頁