Rとウェブ解析:ggplot2で色々プロット


ggplot2でプロットできるコマンドの紹介です。ggplot2のインストールがまだであれば、下記コマンドを実施してください。

install.packages("ggplot2")

プロット紹介

プロットの下にコマンド例を示します。色々試してみてください。

Bar Plot
geom_bar

###geom_bar#####

###データを作成#####
x <- c(rep("a", 7), rep("b", 3)) y <- rnorm(10, mean = rep(c(1,2), each = 5), sd = 0.4) PlotData <- data.frame(x = x, y = y, row.names = c(1:10)) ######## ###プロット##### p <- ggplot(PlotData, aes(x = PlotData[, 1])) p + geom_bar(alpha = 0.3, #塗りの透明度 colour = "red", #線の色 fill = c("green", "blue"), #塗りの色 linetype = 2) #線種 0:Blank, 1:Solid, 2:Dashed, 3:Dotted, 4:Dotdash, 5:Longdash, 6:Twodash #重み付けが必要な場合はweightを使用してください。 [/code] CrossBar Plot geom_crossbar

###geom_crossbar###

###データを作成#####
x <- c(rep("a", 7), rep("b", 3)) y <- rnorm(10, mean = rep(c(1,2), each = 5), sd = 0.4) PlotData <- data.frame(x = x, y = y, row.names = c(1:10)) ######## ###プロット##### p <- ggplot(PlotData, aes(x = PlotData[, 1], y = PlotData[, 2], ymin = min(PlotData[, 2]), ymax = max(PlotData[, 2]))) p + geom_crossbar(alpha = 0.3, #塗りの透明度 fill = "blue", #塗りの色 colour = "red", #線の色 size = 1, #線の太さ linetype = 1) #線種 0:Blank, 1:Solid, 2:Dashed, 3:Dotted, 4:Dotdash, 5:Longdash, 6:Twodash [/code] 等高線 geom_density2d

###データを作成#####
x <- c(rep("a", 7), rep("b", 3)) y <- rnorm(10, mean = rep(c(1,2), each = 5), sd = 0.4) PlotData <- data.frame(x = x, y = y, row.names = c(1:10)) ######## ###プロット##### p <- ggplot(PlotData, aes(x = PlotData[, 2], y = PlotData[, 2])) p + geom_density2d(alpha = 0.3, #塗りの透明度 colour = "green", #線の色 size = 1, #線の太さ linetype = 1) #線種 0:Blank, 1:Solid, 2:Dashed, 3:Dotted, 4:Dotdash, 5:Longdash, 6:Twodash [/code] BoxPlot geom_boxplot

###geom_boxplot###

###データを作成#####
x <- c(rep("a", 7), rep("b", 3)) y <- rnorm(10, mean = rep(c(1,2), each = 5), sd = 0.4) PlotData <- data.frame(x = x, y = y, row.names = c(1:10)) ######## ###プロット##### p <- ggplot(PlotData, aes(x = PlotData[, 1], y = PlotData[, 2])) p + geom_boxplot(outlier.colour = NULL, #外れ値の色 outlier.shape = NULL, #外れ値のシンボル outlier.size = NULL, #外れ値のシンボルの大きさ notch = FALSE, #ノッチ notchwidth = 0.5, #ノッチの幅 alpha = 0.3, #塗りの透明度 colour = "red", #線の色 fill = c("green", "blue"), #塗りの色 linetype = 2) #線種 0:Blank, 1:Solid, 2:Dashed, 3:Dotted, 4:Dotdash, 5:Longdash, 6:Twodash [/code] 棒グラフ geom_histogram

###geom_histogram#####

###データを作成#####
x <- c(rep("a", 3), rep("b", 5), rep("c", 2)) y <- rnorm(10, mean = rep(c(1,2), each = 5), sd = 0.4) PlotData <- data.frame(x = x, y = y, row.names = c(1:10)) ######## ###プロット##### p <- ggplot(PlotData, aes(x = PlotData[, 1])) p + geom_histogram(alpha = 0.5, #色の透明度 fill = "blue", #塗りの色 colour = "green", #線の色 size = 1, #線の太さ linetype = 1) #線種 0:Blank, 1:Solid, 2:Dashed, 3:Dotted, 4:Dotdash, 5:Longdash, 6:Twodash [/code]

スポンサードリンク

スポンサードリンク