「統計学関連なんでもあり」の過去ログ--- 048

No.22733　R textでのイタリック表示　　【コロン】　2019/05/26(Sun) 17:39

お世話になっております。

R plotで描画をしておりますが，グラフ内に p<0.01と表示させたいと思っております。

text(1.5, 70, labels="p <- 0.01)

pだけをイタリックで表示させたいのですが，どのようにすればよろしいでしょうか。

ご教示頂けますでしょうか。

No.22734　Re: R textでのイタリック表示　　【青木繁伸】　2019/05/26(Sun) 21:08

実行可能な最小限のテストプログラムを添付してください

No.22735　Re: R textでのイタリック表示　　【コロン】　2019/05/27(Mon) 08:38

青木先生

申し訳ございませんでした。簡単なコードではございますが，よろしくお願いいたします。
m1 <- 30
m2 <- 40
x <- c(1,2)
allm <- c(m1, m2)
plot(x, allm, ylim=c(0, 100))
text(1.5, 60, labels="p < 0.05")

No.22736　Re: R textでのイタリック表示　　【青木繁伸】　2019/05/27(Mon) 18:13

できばえはちょっといまいちなのですが（字が薄い），以下のようにすれば可能
m1 <- 30
m2 <- 40
x <- c(1,2)
allm <- c(m1, m2)
plot(x, allm, ylim=c(0, 100))
text(1.5, 60, labels="p", vfont = c("sans serif", "italic"))
x2 = 1.58 # この値を locator で決めるか，試行錯誤で決める
text(x2, 60, labels=" < 0.05", vfont = c("sans serif", "plain"))
または，書き始めの位置指定を文字列の左端として（pos=4），2 番目の文字列の最初を p のための空白を一つ確保し，
text(1.5, 60, labels="p", vfont = c("sans serif", "italic"), pos=4)
text(1.5, 60, labels="  < 0.05", vfont = c("sans serif", "plain"), pos=4)
とする（この方が試行錯誤不要なのでよいかも）。
"sans serif" の代わりに "serif" も試して，良いと思う方を使ってください。

No.22737　Re: R textでのイタリック表示　　【コロン】　2019/05/27(Mon) 20:52

青木先生

お忙しい中，ありがとうございました。今作成しておりますグラフにも使用することができました。