小编Poi*_*ewq的帖子

好的，所以我想将小提琴图与白色箱线图一起绘制，但我的数据有点棘手。我将 data.frame 中的数据与几列融合在一起，每列都有对应于两个级别的因子的值，这是我的数据的近似值：

library(ggplot2)
library(reshape2)

dat <- list(
  A = rbind(
    data.frame(group = "1",
               vals = rnorm(500)),
    data.frame(group = "2",
               vals = rnorm(100))
  ),
  B = rbind(
    data.frame(group = "1",
               vals = rnorm(500)),
    data.frame(group = "2",
               vals = rnorm(100))
  ),
  C = rbind(
    data.frame(group = "1",
               vals = rnorm(500)),
    data.frame(group = "2",
               vals = rnorm(100))
  )
)

dat.melt <- melt(dat)

我能找到的最好的方法是手动设置填充，但它会影响小提琴图和箱线图：

dodge <- position_dodge(width = 1)

p <- ggplot(dat.melt, aes(x = L1, y = value, fill = group))+ …

我有这样的 bash 变量：

val="abc jkl pqr"

我有一个看起来像这样的文件：

abc   4   5
abc   8   8
def   43  4
def   7   51
jkl   4   0
mno   32  2
mno   9   2
pqr   12  1

我想丢弃文件中第一个字段不存在于 val 中的行：

abc   4   5
abc   8   8
jkl   4   0
pqr   12  1

我在 awk 中的解决方案根本不起作用，我不知道为什么：

awk -v var="${val}" 'BEGIN{split(var, arr)}$1 in arr{print $0}' file