R切出低频仓
我试图在我获取的一份研究论文列表中绘制不同期刊的频率。数据框中的每一行对应一篇论文,我有相关的日志 我做了以下操作,以在柱状图中绘制标高(箱):R切出低频仓,r,histogram,bin,R,Histogram,Bin,我试图在我获取的一份研究论文列表中绘制不同期刊的频率。数据框中的每一行对应一篇论文,我有相关的日志 我做了以下操作,以在柱状图中绘制标高(箱): journal = main$Publication.Journal tb <- table(journal) barplot(tb[order(tb, decreasing=T)]) axis(2,at=seq(0, 12, 1), lab=seq(0, 12, 1)) journal=main$Publication.journal tb如
journal = main$Publication.Journal
tb <- table(journal)
barplot(tb[order(tb, decreasing=T)])
axis(2,at=seq(0, 12, 1), lab=seq(0, 12, 1))
journal=main$Publication.journal
tb如果没有示例中的数据集,很难回答您的特定问题,因此这里有一个使用模拟示例的解决方案:
x <- rpois(100,100)
xt <- table(x)
xtd <- as.data.frame(xt)
xtds <- subset(xtd, Freq>1) # use subset, as noted by @baptiste
plot(Freq ~ x, xtd, type="h", ylim=c(0,10))
lines(Freq ~ x, xtds, type="h", col="red")
x您可以尝试以下方法:
journal <- read.table(
header=TRUE, text='Name Article
JAMA A
MAD B
Cigar_Afficianado C
Bowling_Weekly D
JAMA E
MAD F
Cigar_Afficianado G
JAMA H
MAD I
Cigar_Afficianado J
')# create data set
library(plyr)
table(journal$Name) # as in your example
journal <- ddply(journal, .(Name), transform, Article_count = length(Article))
journal #shows new column from transform in plyr with a count of articles
journal <- journal[journal$Article_count > 1, ] #removes the low counts
journal #shows that the low counts are removed
journal或非常简单
tb <- tb[tb>1]
tb1]
表
对象是可子集的,与任何数组
对象的方式相同。您可以过滤掉不想打印的数据,例如使用?子集
谢谢,这比我预期的要容易得多!