我正在尝试创建一个类似于这里的情节:
基本上我想要一个直方图,其中每个 bin 显示在该节奏范围内花费了多长时间(例如 0-20rpm 1 小时,21-40rpm 3 小时等)
library("rjson") # 3rd party library, so: install.packages("rjson")
# Load data from Strava API.
# Ride used for example is http://app.strava.com/rides/13542320
url <- "http://app.strava.com/api/v1/streams/13542320?streams[]=cadence,time"
d <- fromJSON(paste(readLines(url)))
(rpm) 中的每个值都与(从开始的秒数)d$cadence
中的相同索引配对。d$time
这些值不一定是统一的(如果您与 比较可以plot(x=d$time, y=d$cadence, type='l')
看出plot(d$cadence, type='l')
)
如果我做最简单的事情:
hist(d$cadence)
..这会产生非常接近的结果,但是 Y 值是“频率”而不是时间,并且忽略了每个数据点之间的时间(因此特别是 0rpm 段的代表性不足)