小编mrp*_*ter的帖子

我试图在R中使用正则表达式来删除文本 - "X"或"X". - 从一个数字的前面.我是正则表达式的新手,并且很难让它工作.我尝试了X和的每个组合.有或没有我能想到的逃脱角色,包括:

• str_replace("X.4.89294e-05", "X.",'')结果"4.89294e-05"但str_replace("X4.89294e-05", "X.",'')结果失败".89294e-05"
• str_replace("X.4.89294e-05", "[X.]",'') 结果 ".4.89294e-05"
• str_replace("X.4.89294e-05", "[X/.?]",'') 结果 ".4.89294e-05"
• str_replace("X.4.89294e-05", "[X//.?]",'') 结果 ".4.89294e-05"
• str_replace('X.4.89294e-0','X/.{0,1}','') 结果 "X.4.89294e-0"
• str_replace('X.4.89294e-0','[X/.{0,1}]','') 结果 ".4.89294e-0"

任何帮助将不胜感激.

有没有办法根据数值为箱线图上的抖动点着色，例如：

ggplot(data, aes(y = y_var, x = x_var)) +
  geom_jitter(size = 2, aes(color = ifelse(y_var < 5, "red", "black)))

我添加了这个可重现的示例，但不太有效（绘图上的颜色与抖动调用不对应）：

a <- rnorm(100, mean = 5, sd = 1)
b <- as.factor(sample(0:1, 100, replace = TRUE))
test_data <- data.frame(cbind(a,b))
test_data$b <- as.factor(test_data$b)

ggplot(test_data, aes(y = a, x = b)) + 
  geom_boxplot()+
  geom_jitter(aes(color = ifelse(a < 5, "red", "black")))

我有一个比例图，我想添加显着性条，以显示各组之间的统计差异。我想使用该ggsignif包创建类似的内容：

我已经尝试过使用ggsignif包和ggplot2，但是结果似乎不适用于比例测试（例如chi.square）

我的数据如下所示：

Input =("
        Group  Yes  No
        1       10       90
        2       30       70
        3       20       80
        ")

test_table = as.data.frame(read.table(textConnection(Input),
                              header=TRUE))

我的最初情节看起来像这样：

ggplot(test_table, 
       aes(x=Group, y=Yes)) 
    + geom_col()