я cc на датафрейме со строкой для каждого оценщика - PullRequest
Новая
       12

я cc на датафрейме со строкой для каждого оценщика

0 голосов
/ 29 апреля 2020

Позвольте мне начать с того, что я совершенно новичок в R и пытаюсь выяснить, как запустить i cc в моем конкретном наборе данных c, который может немного отличаться от обычного.

Набор данных выглядит следующим образом: 

+------------+------------------+--------------+--------------+--------------+
|    date    | measurement_type | measurement1 | measurement2 | measurement3 |
+------------+------------------+--------------+--------------+--------------+
| 25-04-2020 |                1 |         15.5 |         34.3 |         43.2 |
| 25-04-2020 |                2 |         21.2 |         12.3 |          2.2 |
| 25-04-2020 |                3 |         16.2 |          9.6 |         43.3 |
| 25-04-2020 |                4 |           27 |            1 |            6 |
+------------+------------------+--------------+--------------+--------------+

. Теперь я хочу сделать i cc для всех этих рядов, поскольку каждый ряд обозначает отдельную оценку. Это должно оставить колонки date и measurement_type.

Может кто-то направить меня в правильном направлении, я абсолютно не знаю, как go об этом.

------- РЕДАКТИРОВАТЬ -------
Я экспортировал фактический набор данных, который выйдет с некоторыми тестовыми данными. Который доступен здесь

2 важных листа здесь - первый и третий. Первый содержит всех участников исследования, а третий содержит все 4 разных отчета для каждого участника. Код, который у меня есть, просто для ie каждого сообщения правильному участнику; 

library("XLConnect")
library("sqldf")
library("irr")
library("dplyr")
library("tidyr")

# Load in Workbook
wb = loadWorkbook("Measuring.xlsx")
# Load in Worksheet
# Sheet 1 = Study Results
# Sheet 3 = Meetpunten
records = readWorksheet(wb, sheet=1)
reports = readWorksheet(wb, sheet=3)

for (record in 1:nrow(records)) {
  recordId = records[record, 'Record.Id']
  participantReports = sqldf(sprintf("select * from reports where `Record.Id` = '%s'", recordId))

  baselineReport = sqldf("select * from participantReports where measurement_type = '1'")
  drinkReport = sqldf("select * from participantReports where measurement_type = '2'")
  regularReport = sqldf("select * from participantReports where measurement_type = '3'")
  exerciseReport = sqldf("select * from participantReports where measurement_type = '4'")
}
...