小编Ras*_*lam的帖子

我想对第3列中所有行的值求和.我该怎么做？

输入:

chr19   10 11
chr19   12 15
chr19   11 29
chr19   a0 20

预期产量:

75

输入：

df = data.frame(col1 = 1:5, col2 = 5:9)
rownames(df) <- letters[1:5]


#add jitter
jitter(df) #Error in jitter(df) : 'x' must be numeric

预期的输出：抖动将添加到的列中df。谢谢！

我的意见是:

"name_01"
"name_02"
 0.000573033 0.001268718  0.45 6.5e-01
"name_03"
"name_04"
 0.00343343 0.0012435358  0.33 7.5e-09`

tsv中的预期输出:

"name_01"    "name_02"    0.0005    0.0019    0.45    6.5e-01
"name_03"    "name_04"    0.0034    0.0012    0.33    7.5e-09

任何人都可以帮助R或Linux吗？

我有一个在5种类型中每种都有10个值的数据框，并且有2种类型。

df <- data.frame(x2=rnorm(100),y2=rnorm(100), type = c(rep("type a", 50), rep("type b", 50)), kind = rep(LETTERS[1:5],10))

我想在每个象限中打印百分比值的标签。我当前的代码是：

ggplot(df, aes(x2, y2)) + geom_point() +
  geom_vline(xintercept = 0) +
  geom_hline(yintercept = 0) +
  geom_text(data = df, aes(x2, y2, label = "")) +
  facet_grid(type~kind)

电流输出：

预期的输出（例如，我显示了类型A和类型B的百分比，我想绘制所有类型和类型的百分比值）：

任何建议都很好。谢谢！

我有问题geom_bar在刻面时保持ggplot 图中的原始顺序.找到了一些在线帮助,但是当我试图解决时,它们没有用.

码:

df <- as.data.frame(cbind(x =rep(c("N-on", "N-off", "R-on", "R-off"),2),
            y = c(13,6,7,11,20,16,17,19), z = c(rep("A", 4), rep("B", 4))))
ggplot(data=df, aes(x=x, y=y)) +
  geom_bar(stat="identity") +
  facet_wrap(~ z, ncol =1) +
  coord_flip()

输出:

预期输出:垂直轴上的标签将按原始顺序排列,例如, "N-on", "N-off", "R-on", "R-off".

我想更改热图的多个注释的颜色。示例代码：

#test data
test = matrix(rnorm(200), 20, 10)
test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3
test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2
test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4
colnames(test) = paste("Test", 1:10, sep = "")
rownames(test) = paste("Gene", 1:20, sep = "")
#plot
annotation <- data.frame(Var1 = factor(1:10 %% 2 == 0, labels = c("Exp1", "None")), Var1 = factor(1:10 %% 2 == 0, labels = c("Exp1", "None"))) …