gov.cn.pct: Percentage data in Chinese government websites

Description Format Details Source Examples

Description

This data was collected from Google by searching for percentages in Chinese goverment websites.

Format

A data frame with 10000 observations on the following 4 variables.

percentage

a numeric vector: the percentages

count

a numeric vector: the number of webpages corresponding to a certain percentage

round0

a logical vector: rounded to integers?

round1

a logical vector: rounded to the 1st decimal place?

Details

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.

Source

Google (date: 2009/12/17)

Examples

 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)
    })
}

MSG documentation built on May 29, 2017, 4:30 p.m.