提取特定行并列出R中的行

Question

我有一个文件，我想从中提取 segsites：之后的数字，并制作带有垃圾箱的直方图。我编写了一些代码，检查一行是否以单词“ segsites”开头，然后提取该行并将其放入数据框中。

但是，它没有执行应有的操作。它提取了一些数字，但它们与文件中的值不对应。 我已经附上了屏幕截图，以显示文件的外观。这是一个示例，而不是实际文件。

library(dplyr)
library(ggplot2)

 txt <- readLines("file.msOut")

 lns <- (data.frame((beg=which(grepl("segsites:",txt)))))

  output <- cut(lns, breaks = seq(0,1000, by= 100), labels = c("<100","100-200","200-300","300-400","400-500",
                                                         "600-700","700-800,800-900","900-100"))

table(output) %>% 
  as.data.frame() %>% 
  ggplot(aes(x = output, y = Freq)) + 
  geom_col()

从txt采样数据

Answer 1

使用react-native init并假设regex包含图像中的数据

txt