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",