plotmath

    4熱度

    1回答

    出於某種原因,我的交互圖似乎並未在R markdown(使用R studio)中顯示希臘符號(乳膠)。我正在使用的代碼重現如下。爲什麼expression()函數不起作用?有什麼建議麼? with(ba_results, interaction.plot(as.factor(f1), as.factor(f2), y, type = "b",

    0熱度

    2回答

    我正嘗試在一個ggplot2圖中創建一個圖例,每行上有多行和一個參數和值。由於我將符號作爲變量,因此需要使用expression來完成。爲了創建新的線條,我使用了多個atop命令,但這會導致最後一行中的間距不均勻。請參閱我下面的例子: library(ggplot2) N = 25 a = -5 b = 2 sigma = 1 x = runif(N, 0, 10) y = a

    2熱度

    1回答

    我想向我的ggplot添加一個表。在該表中,我需要爲一些字符值添加一個下標(對於Winsorized平均值和標準偏差)。當我指定parse = TRUE時可以實現這個功能,但是結果我丟失了使用sprintf格式化的尾隨零。有沒有辦法使用plotmath並在我的表中保留尾隨零? # exmple data data(iris) # packages library(dplyr) libra

    1熱度

    1回答

    我有四種不同的圖形,每個圖形都轉換爲grob,並取得了明顯的成功。我正嘗試將它們與grid.arrange()組合成一個圖像。四個中的一個 - 我會說這四個中最簡單的 - 會產生一個錯誤,即使沒有其他三個。 grid.text(expression(atop("first line", scriptstyle("second line"))), vjust =

    0熱度

    1回答

    我正在使用plotmath支持,同時向我的繪圖添加註釋,即使用parse=TRUE參數。回顧plotmath documentation here,不清楚如何逃避預定義的符號,例如% label <- 'atop(This~goes~on~top,of~this~with~11.1%)' # how to escape the % sign? geom_text(...,label=label,

    1熱度

    1回答

    我想合併兩個用bquote製作的表達式。例如: a = 1 b = 2 x1 = as.expression(bquote(paste("Something ", alpha, " = ", .(a), sep = ""))) x2 = as.expression(bquote(paste("Something else ", beta, " = ", .(b), sep = "")))

    2熱度

    1回答

    有沒有任何方法來註釋一個ggplot與三個一個在另一個上面,而保持文本大小相同的三條線? 我幾乎有,但文本大小在三線不同,它看起來像bgroup中只使用前兩行,我不能得到這個權利... 我使用添加文本以「頂上」,從「?plotmath」,它工作正常,但在第三行文字出來,在比其他兩行不同的大小...應用 library(ggplot2) line1 = "xxx data1" line2 = "

    4熱度

    1回答

    下面的代碼將繪製一個系統發育樹,提示標籤以斜體和下劃線替換爲空格。 library(ape) tr <- rtree(5, tip.label=c("a_b_x1", "b_c_2", "c_d_3y", "d_e_4", "e_f_5")) plot(tr) 如何將規則文本與斜體文本以斜體形式結合在一個發展史的提示標籤上?在最後一個下劃線顯示爲普通文本後,我對斜體字母和字母數字段的字母感

    0熱度

    1回答

    我正在試圖在基本R圖例中具有大於或等於符號的標籤,後跟從變量中收集的數值。我可以使用Unicode字符下面的代碼做到這一點,和bquote功能: data = c(1,2,3,4) paste0("\u2265", bquote(.(data[2]))) 我想知道是否有可能作出這樣的標籤沒有Unicode字符,而引用的一個變量數值。我一直使用嵌套expression,paste,substi

    0熱度

    2回答

    我想使用geom_text()(其中^表示上標)將「R^2 = 70%」添加到我的圖中。 沒有%符號,這很容易: my.data <- data.frame(x=1:5, y=1:5) p1 <- ggplot(my.data, aes(x=x, y=y)) + geom_point() p1 <- p1 + geom_text(x=2.5, y=5, label="R^2 == 70",