R语言 UsingR包 BushApproval()函数中文帮助文档(中英文对照)

loveR

BushApproval(UsingR)
BushApproval()所属R语言包：UsingR

                                        U.S. President George Bush approval ratings
                                         美国总统乔治·布什的支持率

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

Approval ratings as reported by six different polls.
报告的6个不同的民意调查支持率。


用法----------Usage----------


data(BushApproval)



格式----------Format----------

A data frame with 323 observations on the following 3 variables.
323以下3个变量的观察数据框。




date The date poll was begun (some take a few days)
最新的民意调查的日期开始（有的需要几天的时间）




approval a numeric number between 0 and 100
批准一个数字0和100之间的数字




who a factor with levels fox gallup newsweek time.cnn upenn zogby
谁与水平的一个因素foxgallupnewsweektime.cnnupennzogby


Details

详细信息----------Details----------

A data set of approval ratings of George Bush over the time of his presidency, as reported by several agencies. Most polls were of size approximately 1,000 so the margin of error is about 3 percentage points.
一个数据集的时候，他的总统的乔治·布什的支持率，由若干机构报告。大小为约1,000名，因此大多数民意调查的误差幅度为3个百分点左右。


源----------Source----------

This is from data found at http://www.pollingreport.com/BushJob.htm. The idea came from an article in Salon http://salon.com/opinion/feature/2004/02/09/bush_approval/index.html  by James K. Galbraith.
这是从数据发现http://www.pollingreport.com/BushJob.htm。这个想法来自一个文章沙龙http://salon.com/opinion/feature/2004/02/09/bush_approval/index.html的詹姆斯·K·加尔布雷思。


实例----------Examples----------


data(BushApproval)
attach(BushApproval)

## Plot data with confidence intervals. Each poll gets different line type[＃图数据的置信区间。每个投票得到不同的线路类型]
## no points at first[＃没有在第一点]
plot(strptime(date,"%m/%d/%y"),approval,type="n",
     ylab = "Approval Rating",xlab="Date",
     ylim=c(30,100)
     )

## plot line for CI. Margin or error about 3[＃图线CI。保证金或错误3]
## matlines has trouble with dates from strptime()[＃matlines有问题，那么strptime（日期）]
colors = rainbow(6)

for(i in 1:nrow(BushApproval)) {
  lines(rep(strptime(date[i],"%m/%d/%y"),2),
        c(approval[i]-3,approval[i]+3),
        lty=as.numeric(who[i]),
        col=colors[as.numeric(who[i])]
        )
  
}

## plot points[＃图点]
points(strptime(date,"%m/%d/%y"),approval,pch=as.numeric(who))

## add legend[＃添加图例]
legend((2003-1970)*365*24*60*60,90,legend=as.character(levels(who)),lty=1:6,col=1:6)
detach(BushApproval)

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。