R 给出数值以下的级别

我想把一些数值转换成因子。转换将取决于数值输入的值

例如，我们有一个称为ex的数据帧和一个称为tmp的转换帧。如果p值低于某一限值，则返回相应的系数

ex <- data.frame(pval = c(0.002, 0.3, 0.02, 0.00005, 0.09))
tmp <- data.frame(sign = c("***", "**", "*", "+", "ns"), lim = c(.001, .01, .05, .1, 1))

---

您可以使用data.table中的滚动联接：

---

您可以使用data.table中的滚动联接：

---

这可以通过一个相当模糊的base R函数来实现，该函数是专门为此目的而设计的，symnum：

此外，基本的R函数切割在这里也可以很好地工作

ex$cond <- cut(ex$pval, labels=c("***", "**", "*", "+", "ns"),
               breaks=c(0, .001, .01, .05, .1, 1.1))

ex
   pval cond
1 2e-03   **
2 3e-01   ns
3 2e-02    *
4 5e-05  ***
5 9e-02    +

---

这可以通过一个相当模糊的base R函数来实现，该函数是专门为此目的而设计的，symnum：

此外，基本的R函数切割在这里也可以很好地工作

ex$cond <- cut(ex$pval, labels=c("***", "**", "*", "+", "ns"),
               breaks=c(0, .001, .01, .05, .1, 1.1))

ex
   pval cond
1 2e-03   **
2 3e-01   ns
3 2e-02    *
4 5e-05  ***
5 9e-02    +

ex$cond <- symnum(ex$pval, symbols=c("***", "**", "*", "+", "ns"),
                  cutpoints=c(0, .001, .01, .05, .1, 1.1))

ex
   pval cond
1 2e-03   **
2 3e-01   ns
3 2e-02    *
4 5e-05  ***
5 9e-02    +

ex$cond <- cut(ex$pval, labels=c("***", "**", "*", "+", "ns"),
               breaks=c(0, .001, .01, .05, .1, 1.1))

ex
   pval cond
1 2e-03   **
2 3e-01   ns
3 2e-02    *
4 5e-05  ***
5 9e-02    +