Description Format Details Source Examples
This data was collected from Google by searching for percentages in some goverment websites.
A data frame with 10000 observations on the following 4 variables.
a numeric vector: the percentages
a numeric vector: the number of webpages corresponding to a certain percentage
a logical vector: rounded to integers?
a logical vector: rounded to the 1st decimal place?
We can specify the domain when searching in Google. For this data, we used site:gov.cn, e.g. to search for 87.53% site:gov.cn.
Google (date: 2009/12/17)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | data(gov.cn.pct)
pct.lowess = function(cond) {
with(gov.cn.pct, {
plot(count ~ percentage, pch = ifelse(cond, 4, 20), col = rgb(0:1,
0, 0, c(0.04, 0.5))[cond + 1], log = "y")
lines(lowess(gov.cn.pct[cond, 1:2], f = 1/3), col = 2, lwd = 2)
lines(lowess(gov.cn.pct[!cond, 1:2], f = 1/3), col = 1, lwd = 2)
})
}
par(mar = c(3.5, 3.5, 1, 0.2), mfrow = c(2, 2))
with(gov.cn.pct, {
plot(percentage, count, type = "l", panel.first = grid())
plot(percentage, count, type = "l", xlim = c(10, 11), panel.first = grid())
pct.lowess(round0)
pct.lowess(round1)
})
if (interactive()) {
devAskNewPage(ask = TRUE)
with(gov.cn.pct, {
plot(count ~ percentage, type = "l")
grid()
devAskNewPage(ask = FALSE)
for (i in 0:99) {
plot(count ~ percentage, type = "l", xlim = i + c(0, 1),
panel.first = grid())
}
devAskNewPage(ask = TRUE)
plot(count ~ percentage, pch = 20, col = rgb(0:1, 0, 0, c(0.07,
1))[round0 + 1], log = "y")
lines(lowess(gov.cn.pct[round0, 1:2], f = 1/3), col = "red",
lwd = 2)
lines(lowess(gov.cn.pct[!round0, 1:2], f = 1/3), col = "black",
lwd = 2)
plot(count ~ percentage, pch = 20, col = rgb(0:1, 0, 0, c(0.07,
1))[round1 + 1], log = "y")
lines(lowess(gov.cn.pct[round1, 1:2], f = 1/3), col = "red",
lwd = 2)
lines(lowess(gov.cn.pct[!round1, 1:2], f = 1/3), col = "black",
lwd = 2)
})
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.