如何画出美国总统与竞争对手的散点图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位好：

看到网站
http://en.wikipedia.org/wiki/List_of_heights_of_United_States_presidential_candidates
上有关于美国总统与竞争对手的散点图，如下图：



如何根据网站的数据
Comparative table of heights of United States presidential candidates
下的表格，画出上述图形呢？


主要麻烦讲一下如果从网站读取想要的数据。就是表格




谢谢各位！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：美国总统 竞争对手 散点图 presidential Residential 如何 网站 美国总统 竞争对手 散点图

有意思！

就是一个散点图啊。

从网站上读表格

library(XML)
myurl <- "http://en.wikipedia.org/wiki/List_of_heights_of_United_States_presidential_candidates"
tables <- readHTMLTable(myurl)
n.rows <- unlist(lapply(tables, function(t) dim(t)[1]))
yourtable <- tables[[5]]

有意思，期待下文

qoiqpwqr 发表于 2012-4-18 06:59
从网站上读表格

library(XML)

多谢多谢，在学习学习！

qoiqpwqr 发表于 2012-4-18 06:59
从网站上读表格

library(XML)

这个很有用，谢谢。

1. data <- read.csv("PresidentHeight.csv", header = TRUE)
   
2. data <- na.omit(data)
   
3. HtDiff <- data[, 3] - data[, 5]
   
4. par(mar = c(5, 5, 5, 7))
   
5. plot(data[, 3], data[, 5], xlab = "Winner's height", las = 1, ylab = "Loser's height", xlim = c(160, 200), ylim = c(160, 200), pch = 18, col = "blue", yaxs = "i", xaxs = "i", font.lab = 2)
   
6. rect(par("usr")[1], par("usr")[3], par("usr")[2], par("usr")[4], col = "gray")
   
7. points(data[, 3], data[, 5], pch = 18, col = "blue")
   
8. grid(8, 8, lty = 1, col = "black")
   
9. abline(a = 0, b = 1, col = "red")
   
10. abline(a = 10, b = 1, col = "red")
    
11. abline(a = 20, b = 1, col = "red")
    
12. abline(a = -10, b = 1, col = "red")
    
13. abline(a = -20, b = 1, col = "red")
    
14. mtext("Winner \n>20 cm \nshorter", side = 3, cex = 0.75, line = 0, at = c(170))
    
15. mtext("Winner \n10-20 cm \nshorter", side = 3, cex = 0.75, line = 0, at = c(185))
    
16. mtext("Winner \n0-10 cm \nshorter", side = 3, cex = 0.75, line = 0, at = c(195))
    
17. mtext("Winner \n0-10 cm \ntaller", side = 4, cex = 0.75, line = 1, las = 1, at = c(195))
    
18. mtext("Winner \n10-20 cm \ntaller", side = 4, cex = 0.75, line = 1, las = 1, at = c(185))
    
19. mtext("Winner \n>20 cm \ntaller", side = 4, cex = 0.75, line = 1, las = 1, at = c(170))
    
20. mtext("Same height", side = 4, cex = 0.75, line = 0, las = 1, at = c(202), col = "red")

复制代码