gsplot2を使用しているcsvからのトップ10カウントR

Question

私はcsv「有名人の死」と「死因」を持っています。私はggplot2のチャートを作成したいと思います。 csvの日付を使用しているときにRでカウントする方法がありません。

私は次のようになりますCSVました： https://i.imgur.com/WFTpzDE.png

そして私は、私はベクトルがすべての原因だろう必要があることだと思うが。しかし、私はトップ10にそれらをグループ化する方法がわかりません。

Answer 1

私はあなたがベースRとggplot2で提供したものでできる限り最高のものを作り出そうとします。

library(ggplot2) 

celeb <- c("Kim Kardashian", "The chubby kid from stand by me", "The bassist from the local Clash cover band", "One of L. Ron Hubbard's polyps", "Frank Zappa", "Dweezil Zappa", "Moonunit Zappa", "Scott Evil") 

death <- c("Gored by rhino", "Eaten by Compies", "Choked on funyun", "Gored by rhino", "Gored by rhino", "Eaten by Compies", "Gored by rhino", "Failed to meet dad's expectations") 




df <- cbind(celeb, death) 
df <- as.data.frame(df) 

私の感覚は、あなたが死の原因をランク付けして、それから何かをプロットしたいということです。これはあまりにも複雑ですが、私はあなたにそれを行うための一歩一歩を示すだけであると考えました。

#first get counts of deaths 
deathcounts <- as.data.frame(table(df$death)) 

#next put them in decreasing order 
topfour <- deathcounts[order(deathcounts$Freq, decreasing=T)[1:4],] 

#cool, so rhinos are dangerous mofos. Let's plot these results 
deathplot <- ggplot(topfour, aes(x=Var1, y=Freq)) + geom_bar(stat="identity") 

あなたのフリルは、プレーンな結果は次のとおりです。