9

以下の添付データを使用して箱ひげ図を作成しています。データリンク https://www.dropbox.com/s/dt1nxnkhq90nea4/GTAP_Sims.csv

これまでのところ、使用している次のコードがあります。

# Distribution of EV for all regions under the BASE scenario

evBASE.f <- subset(ccwelfrsts, tradlib =="BASE")
p <- ggplot(data = evBASE.f, aes(factor(region), ev))
p + geom_boxplot() + 
    theme(axis.text.x = element_text(colour = 'black', angle = 90, size = 16)) +
    theme(axis.text.y = element_text(colour = 'black', size = 16))

次のようなプロットを再現します: Plot file:///C:/Users/iouraich/Documents/ggplot_Results.htm

ここで探しているのは、プロットの x 軸を csv ファイルのヘッダー「領域」の順序と一致させることです。

それを制御できるggplot内のオプションはありますか?

どうもありがとう

4

1 に答える 1

9

基本的region <- factor(region,levels=unique(region))には、データに表示される順序でレベルを指定する必要があります。

提供したデータに基づく完全なソリューション：

ccwelfrsts <- read.csv("GTAP_Sims.csv")
## unmangle data
ccwelfrsts[5:8] <- sapply(ccwelfrsts[5:8],as.numeric)
evBASE.f <- droplevels(subset(ccwelfrsts, tradlib =="BASE"))
## reorder region levels
evBASE.f <- transform(evBASE.f,region=factor(region,levels=unique(region)))
library(ggplot2)
theme_set(theme_bw())
p <- ggplot(data = evBASE.f, aes(region, ev))
p + geom_boxplot() + 
    theme(axis.text.x = element_text(colour = 'black', angle = 90, size = 16)) +
    theme(axis.text.y = element_text(colour = 'black', size = 16))+
    xlab("")

coord_flipラベルを読みやすくするために、グラフの方向を切り替えることを検討してください（x軸とy軸のマッピングを介して、または明示的に切り替えることによって）。ただし、y軸に数値応答があるレイアウトは、ほとんどの視聴者にとってなじみがあります。

于 2013-01-21T01:49:31.687 に答える