#第一种方法
per <- data.frame(name = c("张三","李四","王五","赵六"),
age = c(23,45,34,1000))
per
per$age[per$age == 1000] <- NA #设置缺失值
per$age1[per$age <30] = "young" #生成新变量
per$age1[per$age >= 30 &per$age<50] <- "middle age"
per
#第二种方法
per <- data.frame(name = c("张三","李四","王五","赵六"),
age = c(23,45,34,1000))
per <- within(per,{
age1 <- NA
age1[age <30] <- "young"
age1[age>=30 &age<50] <- "middle age"
})
per
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26)DEA:=EMA(DIF,9)
MACD:=(DIF-DEA)*2
忽略以上公式。
根据思路编写公式，修改公式。盘中预警，条件选股。公式解密，去除时间限制。鼠标点击下方
我
的
名
字
或（图
标）上，进入
可
看到
Q，订
制
公式
图片已经输出了，只是保存在你的工作目录中，默认是“我的文档”，不是“我的图片”目录。你可以修改一下R软件的工作目录，或者指定文件保存的绝对路径png(file = "barchart_months_revenue.png")，再输出图片就可以方便找到。
我已试过你的代码，图片已经输出了，只是保存在“我的文档”。如图:
