Datei mit Notepad++ geöffnet, nach ANSI konvertiert und gespeichert.
getwd() setwd("D:/Temp") list.files() # Daten laden und konvertieren data <- read.csv("lizenzen.csv", header = FALSE, sep = ";") levels(data$V1)[200]=10042 head(data) data$V2 <- as.character(levels(data$V2)[data$V2]) data$V3 <- as.numeric(levels(data$V3)[data$V3]) data$V4 <- as.character(levels(data$V4)[data$V4]) data$V5 <- as.numeric(levels(data$V5)[data$V5]) data$V6 <- as.character(levels(data$V6)[data$V6]) str(data) ls() rm(list=ls()) |