我在Mac上使用sublime我有这样的东西
Q21162;E5QCE7
E5QCF5;P91040
E5QCF6;E5QCF8;P34558
E5QCG0;Q09499
E5QCG2
我希望在第一次之后摆脱一切; 所以我想要像这样的输出
Q21162
E5QCF5
E5QCF6
E5QCG0
E5QCG2
我有这样的数据
n <- 1e5
set.seed(24)
df1 <- data.frame(query_string = sample(sprintf("%06d", 100:1000),
n, replace=TRUE), id.x = sample(1:n),
s_val = sample(paste0("F", 400:700), n,
replace=TRUE), id.y = sample(100:3000, n, replace=TRUE),
ID_col_n = sample(100:1e6, n, replace=TRUE), total_id = 1:n)
我使用spread函数使用以下函数分配公共字符串
library(tidyr)
res <- spread(resNik,s_val,value=query_string,fill=NA)
这种方法很完美,但是当数据量巨大时,它就像永远不会结束.我不知道我的电脑是挂了还是仍然在运行,因为两个小时后仍然没有任何东西出现
我想知道是否可以帮助我使用其他功能或其他更快的工作spread？
我的数据看起来像这样
df <- structure(list(V1 = 1:15, V2 = structure(c(5L, 9L, 7L, 8L, 10L,
2L, 13L, 3L, 11L, 12L, 15L, 1L, 4L, 14L, 6L), .Label = c("A0A087WNY6",
"B2RTL5", "B8JJX9", "D3Z2H7", "E9PZ97", "G3UWX1", "Q2VWQ4", "Q3TMB5",
"Q3TWK2", "Q6ZPS9", "Q7TMW3", "Q8BP71", "Q8R4K2", "Q925B0", "Q9WU01"
), class = "factor"), V3 = c(5L, 7L, 10L, 11L, 13L, 15L, NA,
NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c("V1", "V2", "V3"
), class = "data.frame", row.names = c(NA, -15L))
我想根据第三列值从前两列中选择行
预期的产出就是这个
5 Q6ZPS9
7 Q8R4K2 …这已经被多次质疑,比如在R的Barplot中的这个X轴
但没有人帮助我解决我的问题
dt<- structure(c(79L, 54L, 37L, 41L, 42L, 121L, 134L, 169L, 23L, 19L,
22L, 19L, 25L), .Names = c("Experi_1", "Experi_2", "Experi_3",
"Experi_4", "Experi_5", "Experi_6", "Experi_7", "Experi_8", "Experi_9",
"Experi_10", "Experi_11", "Experi_12", "Experi_13"))
我像这样绘制我的数据
mydt<- barplot(dt)
如果我这样做,它会覆盖x轴的两倍
axis(side=1,at=mydt[1+c(1,13)],labels=c("Experi1","Experi13"))
它会自动设置几个x轴标签.我想手动完成,例如只提到x轴标签和结束的开头.在这种情况下,实验1和实验13.我试图理解？轴和特殊标签,但我无法将其设置为像我想要的轴标签.