У меня есть набор данных, в котором есть некоторые значения для неизвестных категорий, которые я хочу распределить.В приведенном ниже примере, где я просматриваю количество студентов в Хогвартсе за два года (1991 и 1992 годы) из четырех домов (гриффиндорец, слизерин, воронкло и хаффлпафф), двух полов, которым принадлежит один из трех домашних животных (жаба, сова)или кот).Так, например, первая строка гласит, что в 1991 году было два студента-гриффиндорца, которые владели жабой.
Однако у меня также есть случаи, когда пол И / ИЛИ питомца неизвестен.Например, я знаю, что в Гриффиндоре в 1991 году было 10 учеников, которые владели жабами, но я не знаю, какого они пола.Я хочу распределить этих 10 учеников по двум половым признакам, основываясь на доле студентов-гриффиндорцев мужского и женского пола, которые владели жабами в 1991 году. Среди жаб, принадлежавших гриффиндорцам в 1991 году, где известен пол, мужчины владели 25% жаб.(2/8), а самкам принадлежало 75% жаб (6/8), поэтому я бы добавил 25% из десяти жаб к числу мужчин (общее число мужчин-гриффиндорцев, которым принадлежали жабы в 1991 году, = 4,5) и добавлю75% из десяти жаб относятся к числу самок (общее число женщин-гриффиндорцев, которым принадлежали жабы в 1991 году, = 13,5).
Я бы использовал ту же логику для случаев, когда я знаю пол, но не тип принадлежащего животному, и в случаях, когда я знаю год и дом, но не пол или тип принадлежащего животного.
DF <- read.table(text = "year house gender pet count
1991 gryffindor male toad 2
1991 gryffindor male owl 4
1991 gryffindor male cat 0
1991 gryffindor female toad 6
1991 gryffindor female owl 6
1991 gryffindor female cat 4
1991 gryffindor unknown toad 10
1991 gryffindor unknown owl 2
1991 gryffindor unknown cat 4
1991 gryffindor male unknown 20
1991 gryffindor female unknown 16
1991 gryffindor unknown unknown 12
1991 slytherin male toad 4
1991 slytherin male owl 2
1991 slytherin male cat 2
1991 slytherin female toad 6
1991 slytherin female owl 2
1991 slytherin female cat 4
1991 slytherin unknown toad 2
1991 slytherin unknown owl 4
1991 slytherin unknown cat 4
1991 slytherin male unknown 22
1991 slytherin female unknown 14
1991 slytherin unknown unknown 14
1991 hufflepuff male toad 2
1991 hufflepuff male owl 2
1991 hufflepuff male cat 0
1991 hufflepuff female toad 0
1991 hufflepuff female owl 3
1991 hufflepuff female cat 4
1991 hufflepuff unknown toad 4
1991 hufflepuff unknown owl 2
1991 hufflepuff unknown cat 4
1991 hufflepuff male unknown 28
1991 hufflepuff female unknown 10
1991 hufflepuff unknown unknown 12
1991 ravenclaw male toad 2
1991 ravenclaw male owl 4
1991 ravenclaw male cat 2
1991 ravenclaw female toad 6
1991 ravenclaw female owl 8
1991 ravenclaw female cat 8
1991 ravenclaw unknown toad 2
1991 ravenclaw unknown owl 2
1991 ravenclaw unknown cat 4
1991 ravenclaw male unknown 16
1991 ravenclaw female unknown 18
1991 ravenclaw unknown unknown 14
1992 gryffindor male toad 2
1992 gryffindor male owl 4
1992 gryffindor male cat 8
1992 gryffindor female toad 2
1992 gryffindor female owl 2
1992 gryffindor female cat 4
1992 gryffindor unknown toad 2
1992 gryffindor unknown owl 4
1992 gryffindor unknown cat 4
1992 gryffindor male unknown 20
1992 gryffindor female unknown 14
1992 gryffindor unknown unknown 12
1992 slytherin male toad 2
1992 slytherin male owl 4
1992 slytherin male cat 0
1992 slytherin female toad 6
1992 slytherin female owl 2
1992 slytherin female cat 4
1992 slytherin unknown toad 2
1992 slytherin unknown owl 2
1992 slytherin unknown cat 4
1992 slytherin male unknown 20
1992 slytherin female unknown 16
1992 slytherin unknown unknown 12
1992 hufflepuff male toad 2
1992 hufflepuff male owl 4
1992 hufflepuff male cat 0
1992 hufflepuff female toad 6
1992 hufflepuff female owl 8
1992 hufflepuff female cat 4
1992 hufflepuff unknown toad 4
1992 hufflepuff unknown owl 2
1992 hufflepuff unknown cat 4
1992 hufflepuff male unknown 22
1992 hufflepuff female unknown 18
1992 hufflepuff unknown unknown 12
1992 ravenclaw male toad 2
1992 ravenclaw male owl 6
1992 ravenclaw male cat 0
1992 ravenclaw female toad 6
1992 ravenclaw female owl 2
1992 ravenclaw female cat 4
1992 ravenclaw unknown toad 2
1992 ravenclaw unknown owl 2
1992 ravenclaw unknown cat 8
1992 ravenclaw male unknown 10
1992 ravenclaw female unknown 20
1992 ravenclaw unknown unknown 14",
header = TRUE, stringsAsFactors = FALSE)
Есть предложения по наиболее эффективному способу кодирования этого в R?