如何根据R中的真或假创建直方图?
我想做的是在R中创建两个柱状图,基于海洋世界员工是否协商加薪,以及他们是否未协商加薪。有人能告诉我哪里出了问题吗。感谢您的帮助 下面是我正在使用的文本文件的一个示例如何根据R中的真或假创建直方图?,r,csv,import-from-csv,R,Csv,Import From Csv,我想做的是在R中创建两个柱状图,基于海洋世界员工是否协商加薪,以及他们是否未协商加薪。有人能告诉我哪里出了问题吗。感谢您的帮助 下面是我正在使用的文本文件的一个示例 emp received negotiated gender year #325 12.5 TRUE F 2013 #318 5.2 FALSE F 2013 #217 9.8 FALSE M
emp received negotiated gender year
#325 12.5 TRUE F 2013
#318 5.2 FALSE F 2013
#217 9.8 FALSE M 2013
#223 6.8 TRUE M 2013
#218 2.1 TRUE F 2006
#601 13.9 FALSE M 2006
#225 7.8 TRUE M 2006
#281 8.5 FALSE F 2006
以下是我目前掌握的代码:
d<-read.csv("employees.txt", header=TRUE, sep="\t")
str(d)
f1 <- mean(d$received)
f2 <- median(d$received)
f3 <- sd(d$recieved)
d$gender <- factor(d$gender, labels=c(1, 2))
pairs(d)
plot(d$received ~ d$gender)
plot(d$received ~ d$year, xlab="year", ylab="recieved")
m <- lm(d$received~d$year)
print(m)
print(f1)
print(f2)
print(f3)
abline(m)
abline(mean(d$received), 0, lty=2)
hist(d$received[d$gender ==1],breaks = 50)
dev.new()
hist(d$received[d$gender ==2],breaks = 50)
dev.new()
#hist(d$year, breaks = 50)
#dev.new()
plot(d$gender, d$received)
d数据中的#
符号给我带来了问题
使用#
符号
d1 <- read.table(text = "
emp received negotiated gender year
#325 12.5 TRUE F 2013
#318 5.2 FALSE F 2013
#217 9.8 FALSE M 2013
#223 6.8 TRUE M 2013
#218 2.1 TRUE F 2006
#601 13.9 FALSE M 2006
#225 7.8 TRUE M 2006
#281 8.5 FALSE F 2006",
header = TRUE)
但是如果没有#
,我们会
d2 <- read.table(text = "
emp received negotiated gender year
325 12.5 TRUE F 2013
318 5.2 FALSE F 2013
217 9.8 FALSE M 2013
223 6.8 TRUE M 2013
218 2.1 TRUE F 2006
601 13.9 FALSE M 2006
225 7.8 TRUE M 2006
281 8.5 FALSE F 2006",
header = TRUE)
关于如何根据员工是否要求加薪创建员工加薪金额直方图的问题,请参见:
hist(d$received[d$negotiated == TRUE])
hist(d$received[d$negotiated == FALSE])
你在哪里遇到麻烦?我的猜测是“标签”与因子的基本值(编码为1和2)有一些混淆。@Frank Ok我修正了这个问题。根据员工是否要求加薪,我在创建员工加薪金额柱状图(“收到”列)时遇到了麻烦。哇,谢谢!!!如果我想创建一个基于“协商列”和性别的员工收入柱状图,它会是hist(d$received[d$goverated==TRUE]&&[d$gender==M])
close,它会是hist(d$received[d$goverated==TRUE&&d$gender==F])
,在“M”或“F”周围少放几个方括号和引号
str(d2)
'data.frame': 8 obs. of 5 variables:
$ emp : int 325 318 217 223 218 601 225 281
$ received : num 12.5 5.2 9.8 6.8 2.1 13.9 7.8 8.5
$ negotiated: logi TRUE FALSE FALSE TRUE TRUE FALSE ...
$ gender : Factor w/ 2 levels "F","M": 1 1 2 2 1 2 2 1
$ year : int 2013 2013 2013 2013 2006 2006 2006 2006
hist(d$received[d$negotiated == TRUE])
hist(d$received[d$negotiated == FALSE])