第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

堆積條形圖

堆積條形圖

我想使用ggplot2和geom_bar創(chuàng)建一個(gè)堆積圖。這是我的源數(shù)據(jù):Rank F1     F2     F31    500    250    502    400    100    303    300    155    1004    200    90     10我想要一個(gè)堆積圖,其中x是排名,y是F1,F(xiàn)2,F(xiàn)3中的值。# Getting Source Data  sample.data <- read.csv('sample.data.csv')# Plot Chart  c <- ggplot(sample.data, aes(x = sample.data$Rank, y = sample.data$F1))  c + geom_bar(stat = "identity")這是我所能得到的。我不確定如何堆疊其余的字段值。也許我的data.frame格式不正確?
查看完整描述

3 回答

?
回首憶惘然

TA貢獻(xiàn)1847條經(jīng)驗(yàn) 獲得超11個(gè)贊

你說(shuō) :


也許我的data.frame格式不正確?


是的,這是真的。您的數(shù)據(jù)為寬格式,您需要以長(zhǎng)格式輸入。一般來(lái)說(shuō),長(zhǎng)格式更適合變量比較。


使用reshape2例如,你做到這一點(diǎn)使用melt:


dat.m <- melt(dat,id.vars = "Rank") ## just melt(dat) should work

然后您得到了您的barplot:


ggplot(dat.m, aes(x = Rank, y = value,fill=variable)) +

    geom_bar(stat='identity')

但是,使用lattice和barchart智能公式符號(hào),你不需要重塑你的數(shù)據(jù),只是這樣做:


barchart(F1+F2+F3~Rank,data=dat)


查看完整回答
反對(duì) 回復(fù) 2019-09-24
?
忽然笑

TA貢獻(xiàn)1806條經(jīng)驗(yàn) 獲得超5個(gè)贊

您需要將數(shù)據(jù)轉(zhuǎn)換為長(zhǎng)格式,并且不應(yīng)$在內(nèi)部使用aes:


DF <- read.table(text="Rank F1     F2     F3

1    500    250    50

2    400    100    30

3    300    155    100

4    200    90     10", header=TRUE)


library(reshape2)

DF1 <- melt(DF, id.var="Rank")


library(ggplot2)

ggplot(DF1, aes(x = Rank, y = value, fill = variable)) + 

  geom_bar(stat = "identity")

http://img1.sycdn.imooc.com//5d89c95000016d8d06580556.jpg

查看完整回答
反對(duì) 回復(fù) 2019-09-24
?
繁花如伊

TA貢獻(xiàn)2012條經(jīng)驗(yàn) 獲得超12個(gè)贊

基于羅蘭的答案,tidyr用于將數(shù)據(jù)從寬到長(zhǎng)整形:


library(tidyr)

library(ggplot2)


df <- read.table(text="Rank F1     F2     F3

1    500    250    50

2    400    100    30

3    300    155    100

4    200    90     10", header=TRUE)


df %>% 

  gather(variable, value, F1:F3) %>% 

  ggplot(aes(x = Rank, y = value, fill = variable)) + 

  geom_bar(stat = "identity")

http://img1.sycdn.imooc.com//5d89c95c0001e38d10160556.jpg

查看完整回答
反對(duì) 回復(fù) 2019-09-24
  • 3 回答
  • 0 關(guān)注
  • 632 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)