Я пытаюсь извлечь одно значение из фрейма данных. Вместо этого он возвращает значение и уровни переменной (см. Ниже).
Как мне убедиться, что он возвращает только значение «дефект» или «сотрудничать» без уровней? '' '
Response_1 = book[c("id1", "bid1")]
Response_2 = book[c("id2", "bid2")]
my_id = "3"
main_data1 = subset(Response_1, Response_1$id1 %in% my_id)
main_data2 = subset(Response_2 , Response_2$id2 %in% my_id)
names(main_data2) = c("id1", "bid1")
names(main_data1) = c("id1", "bid1")
main_data = rbind(main_data1, main_data2)
print(main_data[length(main_data$bid1), 2])
> print(main_data[length(main_data$bid1), 2])
[1] cooperate
Levels: cooperate defect