我有以下R函数,它检查一系列值并写出一个关于它们的句子.问题是,当我使用该函数然后调用它时,无论Value如何,所有句子都是相同的.
hover <- function (){
if(df$Value > 140 && df$Change < -0.05){
hovertext ="Price High, Level of Activity Low"
}else{
if(df$Value < 140 && df$Change > 90 && df$YVoltage > -0.05 &&
df$YVoltage < 0.30 ){
hovertext ="Price Normal, Level of Activity normal"
} else {
hovertext ="Price High, Level of Activity high"
}
}
}
hovertext <- hover ()
hovertext
Run Code Online (Sandbox Code Playgroud)
关于如何解决这个问题的任何想法.
以下是示例数据:
TimeStamp,Price,Change
12:00:00,140,0.05
12:12:03,148,0.06
12:12:40,130,-0.05
12:12:50,135,0.01
12:13:00,135,0
12:13:10,1.37,0.01
Run Code Online (Sandbox Code Playgroud)
这就是我目前所拥有的:
library (ggplot2)
df <- read.csv(file.choose(), header =TRUE)
df
df$Price …Run Code Online (Sandbox Code Playgroud) r ×1