Question

我有以下数据:

library(tidyverse)

table <- tibble(
  points = 0:10,
  energy = c(0, 120, 240, 300, 380, 500, 600, 780, NA, NA, NA),
  cost = c(0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0)
)

我正试图写出一项具有价值的职能,即将其与<代号>能源/代码”中的数值相对应的措施,然后退回相关的<代码>值。

迄今为止,我可以理解一个基本机制,以便按照以下几条来推断:

energy_points <- function(energy_input) {
table_one %>%
  filter(energy == energy_input) %>%
  pull(points)
}

然而,我的职能的预期运作是,它研究的是能源——投入价值和在分配分数之前的“安排”检查。

So a value of 125 is greater than 120 and less than 241, so returns a points of 1. A value of 120 is not greater than 120 so returns a points of 0. Some more expected outputs if helpful:

energy_input	points
50	0
120	0
121	1
240	1
241	2

www.un.org/Depts/DGACM/index_spanish.htm 我怎么能写这一职务,以便检查表格中的价值范围?

Answer 1

您可按最高<代码>能源和代之;投入:

energy_points <- function(energy_input) {
  with(
    table, 
    points[[max(which(energy < energy_input))]]
  )
}

# test
input <- c(50, 120, 121, 240, 241, 780, 781)

data.frame(input, output = sapply(input, energy_points))
#   input output
# 1    50      0
# 2   120      0
# 3   121      1
# 4   240      1
# 5   241      2
# 6   780      6
# 7   781      7

友情链接