第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問(wèn)題,去搜搜看,總會(huì)有你想問(wèn)的

在ggplot 2中在各個(gè)方面注釋文本

在ggplot 2中在各個(gè)方面注釋文本

波斯汪 2019-07-15 15:20:29
在ggplot 2中在各個(gè)方面注釋我想用以下代碼對(duì)情節(jié)的最后一個(gè)方面進(jìn)行注釋:library(ggplot2)p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()p <- p + facet_grid(. ~ cyl)p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5)print(p)但這段代碼在每個(gè)方面都對(duì)文本進(jìn)行了注釋。如果你能指導(dǎo)我如何只從一個(gè)方面得到注釋的文本,我將不勝感激。提前謝謝。
查看完整描述

3 回答

?
HUX布斯

TA貢獻(xiàn)1876條經(jīng)驗(yàn) 獲得超6個(gè)贊

通常你會(huì)這樣做:

ann_text <- data.frame(mpg = 15,wt = 5,lab = "Text",
                       cyl = factor(8,levels = c("4","6","8")))p + geom_text(data = ann_text,label = "Text")

它應(yīng)該在不完全指定因子變量的情況下工作,但可能會(huì)引發(fā)一些警告


查看完整回答
反對(duì) 回復(fù) 2019-07-15
?
開(kāi)心每一天1111

TA貢獻(xiàn)1836條經(jīng)驗(yàn) 獲得超13個(gè)贊

我認(rèn)為上面的答案=“文本”是無(wú)用的,下面的代碼也沒(méi)問(wèn)題。

ann_text <- data.frame(mpg = 15,wt = 5,
                       cyl = factor(8,levels = c("4","6","8")))p + geom_text(data = ann_text,label = "Text" )

但是,如果您想在不同的子圖中進(jìn)行不同的標(biāo)記,可以這樣做:

ann_text <- data.frame(mpg = c(14,15),wt = c(4,5),lab=c("text1","text2"),
                       cyl = factor(c(6,8),levels = c("4","6","8")))p + geom_text(data = ann_text,aes(label =lab) )


查看完整回答
反對(duì) 回復(fù) 2019-07-15
  • 3 回答
  • 0 關(guān)注
  • 739 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)