症例数を可視化するには横棒グラフが便利CSVは↓の感じ 今回は脳外科の急患の内訳を使う bar plot〜 # bar plot library(ggplot2) library(ggsci) dat <- read.csv("/Users/Desktop/Book1.csv",header=TRUE) attach(dat) p <- ggplot(dat,aes(x = reorder(x = disease, X = n, FUN = mean), y = n), fill = disease) p <- p + geom_bar(stat = "identity") #横棒へ p <-…