Read.csv: é o comando para ler arquivos nesse formato ❖ é importante verificar se o arquivo csv está no seu diretório de arquivos do R. ❖ para mudar esse diretório clique em Session — Set Working Directory — Choose Directory


##1 chr em factor"

hgnR <- read.csv("dat49.csv")
hgnR$nome = factor(hgnR$nome)
levels(hgnR$nome)
[1] ""  "5" "a" "b" "c"
hgnR <- subset(hgnR, nome != "5", select = c(nota,nome,dicot,tornout)) %>% na.omit ()
hgnR <- droplevels(subset(hgnR,nome != "5"))
levels(hgnR$nome)
[1] ""  "a" "b" "c"
hgnR <- subset(hgnR, nome != "", select = c(nota,nome,dicot,tornout)) %>% na.omit ()
hgnR <- droplevels(subset(hgnR,nome != ""))
levels(hgnR$nome)
[1] "a" "b" "c"
plot(hgnR$nome)

variávei dicot

hgnR$dicot = factor(hgnR$dicot)
levels(hgnR$dicot)
[1] ""  "x" "y"
hgnR <- subset(hgnR, dicot != "", select = c(nota,nome,dicot,tornout)) %>% na.omit ()
hgnR <- droplevels(subset(hgnR,dicot != ""))
levels(hgnR$dicot)
[1] "x" "y"
plot(hgnR$dicot)


transformar tornout (int) em factorial de dois

levels(as.factor(hgnR$tornout))
[1] "0" "1"
hgnR$tornout = factor(hgnR$tornout, labels = c("nao vota","vota"))
plot(hgnR$tornout)


*usar função mutate para criar categorias de nota

plot(as.factor(hgnR$nota))

LS0tDQp0aXRsZTogIlJlY29kaWZpY2FuZG8iDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpSZWFkLmNzdjogw6kgbyBjb21hbmRvIHBhcmEgbGVyIGFycXVpdm9zIG5lc3NlIGZvcm1hdG8NCuKdliDDqSBpbXBvcnRhbnRlIHZlcmlmaWNhciBzZSBvIGFycXVpdm8gY3N2IGVzdMOhIG5vIHNldSBkaXJldMOzcmlvIGRlIGFycXVpdm9zIGRvIFIuDQrinZYgcGFyYSBtdWRhciBlc3NlIGRpcmV0w7NyaW8gY2xpcXVlIGVtIFNlc3Npb24g4oCUIFNldCBXb3JraW5nIERpcmVjdG9yeSDigJQNCkNob29zZSBEaXJlY3RvcnkNCg0KDQoNCg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQoNCiMjMSBjaHIgZW0gZmFjdG9yIg0KDQpgYGB7cn0NCmhnblIgPC0gcmVhZC5jc3YoImRhdDQ5LmNzdiIpDQpgYGANCg0KDQpgYGB7cn0NCmhnblIkbm9tZSA9IGZhY3RvcihoZ25SJG5vbWUpDQpsZXZlbHMoaGduUiRub21lKQ0KYGBgDQoNCmBgYHtyfQ0KaGduUiA8LSBzdWJzZXQoaGduUiwgbm9tZSAhPSAiNSIsIHNlbGVjdCA9IGMobm90YSxub21lLGRpY290LHRvcm5vdXQpKSAlPiUgbmEub21pdCAoKQ0KaGduUiA8LSBkcm9wbGV2ZWxzKHN1YnNldChoZ25SLG5vbWUgIT0gIjUiKSkNCmxldmVscyhoZ25SJG5vbWUpDQpgYGANCmBgYHtyfQ0KaGduUiA8LSBzdWJzZXQoaGduUiwgbm9tZSAhPSAiIiwgc2VsZWN0ID0gYyhub3RhLG5vbWUsZGljb3QsdG9ybm91dCkpICU+JSBuYS5vbWl0ICgpDQpoZ25SIDwtIGRyb3BsZXZlbHMoc3Vic2V0KGhnblIsbm9tZSAhPSAiIikpDQpsZXZlbHMoaGduUiRub21lKQ0KYGBgDQoNCg0KDQoNCmBgYHtyfQ0KcGxvdChoZ25SJG5vbWUpDQpgYGANCg0KDQoqKip2YXJpw6F2ZWkgZGljb3QqKioNCg0KYGBge3J9DQpoZ25SJGRpY290ID0gZmFjdG9yKGhnblIkZGljb3QpDQpsZXZlbHMoaGduUiRkaWNvdCkNCmBgYA0KDQpgYGB7cn0NCmhnblIgPC0gc3Vic2V0KGhnblIsIGRpY290ICE9ICIiLCBzZWxlY3QgPSBjKG5vdGEsbm9tZSxkaWNvdCx0b3Jub3V0KSkgJT4lIG5hLm9taXQgKCkNCmhnblIgPC0gZHJvcGxldmVscyhzdWJzZXQoaGduUixkaWNvdCAhPSAiIikpDQpsZXZlbHMoaGduUiRkaWNvdCkNCmBgYA0KDQpgYGB7cn0NCnBsb3QoaGduUiRkaWNvdCkNCmBgYA0KDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQoNCioqKnRyYW5zZm9ybWFyIHRvcm5vdXQgKGludCkgZW0gZmFjdG9yaWFsIGRlIGRvaXMqKioNCg0KYGBge3J9DQpsZXZlbHMoYXMuZmFjdG9yKGhnblIkdG9ybm91dCkpDQpgYGANCg0KYGBge3J9DQpoZ25SJHRvcm5vdXQgPSBmYWN0b3IoaGduUiR0b3Jub3V0LCBsYWJlbHMgPSBjKCJuYW8gdm90YSIsInZvdGEiKSkNCnBsb3QoaGduUiR0b3Jub3V0KQ0KYGBgDQoNCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCg0KKioqdXNhciBmdW7Dp8OjbyBtdXRhdGUgcGFyYSBjcmlhciBjYXRlZ29yaWFzIGRlIG5vdGEqKg0KDQpgYGB7cn0NCnBsb3QoYXMuZmFjdG9yKGhnblIkbm90YSkpDQpgYGANCg0KDQo=