1

データリンク：

データ

コード：

    distevyield <- read.csv(file = "F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_DistEVYield.csv", header=TRUE, sep=",", na.string="NA", dec=".", strip.white=TRUE)

    str(distevyield)
    distevyield <- as.data.frame(distevyield)
    distevyield[5:6] <- sapply(distevyield[5:6],as.numeric)
    distevyield <- droplevels(distevyield)
    distevyield <- transform(distevyield,region=factor(region,levels=unique(region)))
    library(ggplot2)

    distevyield.f <- melt(subset(distevyield, region !="World"))

    Figure3 <- ggplot(data = distevyield.f, aes(factor(variable), value)) 
    Figure3 + geom_boxplot() +
    theme(axis.text.x = element_text(colour = 'black', angle = 90, size = 15, hjust = 1, vjust = 0.5),axis.title.x = element_blank()) + 
    theme(axis.text.y = element_text(colour = 'black', size = 15, hjust = 0.5, vjust = 0.5), axis.title.y = element_blank()) + 
    theme(strip.text.x = element_text(size = 14, hjust = 0.5, vjust = 0.5, face = 'bold')) +
    facet_wrap(~region, scales="free_y")

結果： プロット結果

質問：

プロットされた 2 つの変数、yield (%change) と ev (100 万米ドル) の単位は異なります。変数の 1 つに 2 次 y 軸を追加して、各変数を元の単位を表す箱ひげ図で表示するが、同じプロット内に表示する方法はありますか? この機能はそもそもggplot2に存在しますか?

ありがとう！

4

1 に答える 1

6

ggplot2 では、2 つの y 軸を作成できません (説明/ディスカッションを参照)。

と の異なる軸の値を表すには、それらを別々のプロットにプロットする必要がevあります。これを実現する 1 つの方法は、値yieldを使用facet_wrap()して結合することです。両方のプロットをまとめて、表示する列の数を制御できるようになります。regionvariablefacet_wrap()

ggplot(data = distevyield.f, aes(factor(1), value)) +
  geom_boxplot() +  facet_wrap(region~variable,scales="free",ncol=8)+
  theme(axis.text.x=element_blank(),
        axis.title.x=element_blank(), 
        axis.title.y = element_blank())

ここに画像の説明を入力

于 2013-03-03T17:19:34.780 に答える