# gov.cn.pct: Percentage data in Chinese government websites In MSG: Data and Functions for the Book Modern Statistical Graphics

## 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.