web-dev-qa-db-ja.com

自動プロットの軸タイトルの変更

autoplotからggfortifyを使用して、診断プロットを作成します。

library(ggplot2)
library(ggfortify)

mod <- lm(Petal.Width ~ Petal.Length, data = iris)
autoplot(mod, label.size = 3)

軸とプロットのタイトルを（簡単に）変更することは可能ですか？翻訳したいのですが。

enter image description here

rggplot2ggfortify
13
beetroot

関数autoplot.lmはS4オブジェクトを返します（クラスggmultiplot、?`ggmultiplot-class`を参照）。ヘルプファイルを見ると、個々のプロットの置換方法があることがわかります。つまり、個々のプロットを抽出して変更し、元に戻すことができます。例えば：

library(ggplot2)
library(ggfortify)

mod <- lm(Petal.Width ~ Petal.Length, data = iris)
g <- autoplot(mod, label.size = 3) # store the ggmultiplot object

# new x and y labels
xLabs <- yLabs <- c("a", "b", "c", "d")

# loop over all plots and modify each individually
for (i in 1:4)
    g[i] <- g[i] + xlab(xLabs[i]) + ylab(yLabs[i])

# display the new plot
print(g)

ここでは、軸ラベルのみを変更しましたが、プロットに関する変更（テーマ、色、タイトル、サイズ）は個別に変更します。

6
Vandenman

@ user20650によって提案されたソリューションは、興味深くエレガントです。

これは、myautoplotの修正バージョンであるautoplotに基づくあまり洗練されていないソリューションです。お役に立てば幸いです。
myautoplot funtion here をダウンロードし、myautoplot.rという名前で作業ディレクトリに保存します。
次に、次のコードを使用します。

library(ggplot2)
library(ggfortify)

source("myautoplot.r")
mod <- lm(Petal.Width ~ Petal.Length, data = iris)

####
# Define x-labels, y-labels and titles
####
# Residuals vs Fitted Plot
xlab_resfit <- "Xlab ResFit"
ylab_resfit <- "Ylab ResFit"
title_resfit <- "Title ResFit"

# Normal Q-Q Plot
xlab_qqplot <- "Xlab QQ"
ylab_qqplot <- "Ylab QQ"
title_qqplot <- "Title QQ"

# Scale-Location Plot
xlab_scaleloc <- "Xlab S-L"
ylab_scaleloc <- "Ylab S-L"
title_scaleloc <- "Title S-L"

# Cook's distance Plot
xlab_cook <- "Xlab Cook"
ylab_cook <- "Ylab Cook"
title_cook <- "Title Cook"

# Residuals vs Leverage Plot
xlab_reslev <- "Xlab Res-Lev"
ylab_reslev <- "Ylab Res-Lev"
title_reslev <- "Title Res-Lev"

# Cook's dist vs Leverage Plot
xlab_cooklev <- "Xlab Cook-Lev"
ylab_cooklev <- "Ylab Cook-Lev"
title_cooklev <- "Title Cook-Lev"

# Collect axis labels and titles in 3 lists    
xlab_list <- list(resfit=xlab_resfit, qqplot=xlab_qqplot, 
      scaleloc=xlab_scaleloc, cook=xlab_cook, reslev=xlab_reslev,
      cooklev=xlab_cooklev)
ylab_list <- list(resfit=ylab_resfit, qqplot=ylab_qqplot, 
      scaleloc=ylab_scaleloc, cook=ylab_cook, reslev=ylab_reslev,
      cooklev=ylab_cooklev)
title_list <- list(resfit=title_resfit, qqplot=title_qqplot, 
      scaleloc=title_scaleloc, cook=title_cook, reslev=title_reslev,
      cooklev=title_cooklev)

# Pass the lists of axis labels and title to myautoplot
myautoplot(mod, which=1:6, xlab=xlab_list, 
                           ylab=ylab_list, 
                           title=title_list)

enter image description here

5
Marco Sandri
library(ggplot2)
library(ggfortify)

mod <- lm(Petal.Width ~ Petal.Length, data = iris)
autoplot(mod,which=c(1:6), ncols=2)    #total 6 plots in two columns
#change axes label & title of plot 1. similarly by changing 'which' parameters count you can label other plots.
autoplot(mod,which=1) + 
  labs(x="x-axis label of fig1", y="y-axis label of fig1", title="Fig1 plot")

それが役に立ったかどうか私たちに知らせることを忘れないでください：）

4
Prem