name是一个字符串,data是一个dataframe
ID NAME DATE STATUS TIME range NAMEPY
1 1 李成 2015/8/3 9:20 上班签到 9:20 9:00 LICHENG
2 1 李成 2015/8/3 20:18 加班签到 20:18 20:00 LICHENG
3 1 李成 2015/8/4 9:27 上班签到 9:27 9:00 LICHENG
4 1 李成 2015/8/4 18:57 下班签退 18:57 19:00 LICHENG
5 1 李成 2015/8/5 18:50 下班签退 18:50 19:00 LICHENG
6 1 李成 2015/8/6 9:26 上班签到 9:26 9:00 LICHENG
getoneplotnew <- function(name,data){
dfx <- data[grep(name,data$NAMEPY),]
dfx$rangefactor <- factor(dfx$range,levels = Xas,order=T)
p <- ggplot(dfx,aes(x=dfx$rangefactor,fill=factor(dfx$STATUS)))
p <- p + geom_bar(position='dodge')
print(p)
}
当用不同的name调用getoneplotnew(name_x,data)函数时就报错不能输出图片
但是如果认为给定name和data,直接执行函数内的code就没有问题。。。。
请问大牛这是为什么,怎么改???
|