我正在尝试做的是在R中创建两个直方图,基于 SeaWorld 的员工是否协商加薪,以及如果他们没有协商加薪。有人可以告诉我哪里出错了。任何帮助表示赞赏。
这是我正在使用的文本文件的示例。
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)