Deutschsprachiges Forum zur Statistikumgebung R
http://forum.r-statistik.de/
So ist es wohl! Unter anderem deswegen dränge ich immer darauf, dass Fragesteller ihr Netto-Problem darstellen - und nicht den Zustand bei Abbruch des BearbeitungsversuchesCool, das ursprüngliche Problem ... verschwindet einfach, wenn man Excel als Zwischenschritt weglässt.
!Vielleicht hast Du mich damit auch falsch verstanden? Das war kein Kommentar, sondern eine ehrliche Frage. Ich wollte wissen, ob es noch andere Anpassungen gibt von denen Du glaubst, dass Du sie besser in Excel machen solltest und tatsächlich, hast Du noch irgendwelche Umlaute zu verarbeiten und glaubst, dass Du das besser in Excel machen solltest. Ich habe also mit meinem letzten Kommentar ehrlich nach genau dem gefragt, was Du jetzt als Problem hast.Arthemisia hat geschrieben: ↑Mi Sep 07, 2022 2:23 pm@Bernhard: sorry, aber deinen letzten Kommentar fand ich ein wenig fehl am Platz.
Das kann man so nicht sagen - außerdem steckt das Problem mit den falsch codierten "Spezialzeichen" schon in Deinen Beispielsdaten: da gibt es sowohl "Dümmer" wie auch "rigned as adult female in family catch at Lake Dümmer" - sind da mehrere Dateien gemischt worden?R kann mit "ü" und "ß" nichts anfangen, es gibt dann in der Ausgabe "D\xfcmmer", ...
Code: Alles auswählen
library(trip)
library(stringr)
library(adehabitatHR)
library(lattice)
library(gmodels)
library(spatstat)
library(maptools)
library(data.table)
read.csv ("raw_data3.csv")
dataNSD <- read.csv ("raw_data3.csv", haeder = TRUE, sep = ",")
DT <- fread("raw_data3.csv")
DT[ , ":="(Timestamp = as.POSIXct(timestamp, format="%m/%d/%Y %H:%M:%S"))]
dataNSD <- DT[ , c("trackId", "site", "timestamp", "location.long", "location.lat")]
setnames(dataNSD, c("location.long", "location.lat"), c("coords_x1", "coords_x2"))
List_D <-read.table("list_IDduemmer.txt", sep="\t", header=TRUE)
head(List_D)
trackIdDuemmer <- c(List_D)
str (trackIdDuemmer)
List_GM <-read.table("list_IDgrossesMeer.txt", sep="\t", header=TRUE)
head(List_GM)
trackIdGrossesMeer <- c(List_GM)
str (trackIdGrossesMeer)
data.Duemmer <- subset (dataNSD, site == "Duemmer")
duemmer <- data.frame (data.Duemmer$trackId, data.Duemmer$timestamp, data.Duemmer$coords_x1, data.Duemmer$coords_x2 )
str (duemmer)
data.GrossesMeer <- subset (dataNSD, site == "Grosses Meer")
GrossesMeer <- data.frame (data.GrossesMeer$trackId, data.GrossesMeer$timestamp, data.GrossesMeer$coords_x1, data.GrossesMeer$coords_x2 )
str (GrossesMeer)
coords.Duemmer <-data.frame(x = duemmer$data.Duemmer.coords_x1, y = duemmer$data.Duemmer.coords_x2)
crsD <- "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
head(coords.Duemmer)
plot(coords.Duemmer, main = "Coordinates GPS Data Duemmer See", xlab = "Longitude Degrees East", ylab = "Latitude Degrees North")
coords.GrossesMeer <- data.frame(x = GrossesMeer$data.GrossesMeer.coords_x1, y = GrossesMeer$data.GrossesMeer.coords_x2)
crsGM <- "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
head(coords.GrossesMeer)
plot(coords.GrossesMeer)
NSDduemmer.spdf <- SpatialPointsDataFrame(coords = coords.Duemmer, data = duemmer, proj4string = CRS(crsD))
head(NSDduemmer.spdf)
class(NSDduemmer.spdf)
proj4string(NSDduemmer.spdf)
plot(NSDduemmer.spdf)
NSDgrossesMeer.spdf <- SpatialPointsDataFrame(coords = coords.GrossesMeer, data = GrossesMeer, proj4string = CRS(crsGM))
head(NSDgrossesMeer.spdf)
class(NSDgrossesMeer.spdf)
proj4string(NSDgrossesMeer.spdf)
plot(NSDgrossesMeer.spdf)
Code: Alles auswählen
Fehler: unerwartetes Symbol in:
"str (nsdtest)
nsdplot <- xyplot (nsdall ~ zerostart/3600, data = datansd1, col = "grey", type = 'b', ylab = expression paste"
> plot (nsdplot)
Fehler in h(simpleError(msg, call)) :
Fehler bei der Auswertung des Argumentes 'x' bei der Methodenauswahl für Funktion 'plot': Objekt 'nsdplot' nicht gefunden
> dev.off()
null device
1
> }
Fehler: Unerwartete(s) '}' in "}"
Und das bekomme ich als Aufstellung der Results:
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
ID 0 0 0 0 0 0 0 0 0 0 0 0
AICC_1 0 0 0 0 0 0 0 0 0 0 0 0
d_AICC_1 0 0 0 0 0 0 0 0 0 0 0 0
LL_AICC_1 0 0 0 0 0 0 0 0 0 0 0 0
wi_AICC_1 0 0 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0 0 0
AICC_2 0 0 0 0 0 0 0 0 0 0 0 0
d_AICC_2 0 0 0 0 0 0 0 0 0 0 0 0
LL_AICC_2 0 0 0 0 0 0 0 0 0 0 0 0
wi_AICC_2 0 0 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0 0 0
AICC_3 0 0 0 0 0 0 0 0 0 0 0 0
d_AICC_3 0 0 0 0 0 0 0 0 0 0 0 0
LL_AICC_3 0 0 0 0 0 0 0 0 0 0 0 0
wi_AICC_3 0 0 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0 0 0
AICC_4 0 0 0 0 0 0 0 0 0 0 0 0
d_AICC_4 0 0 0 0 0 0 0 0 0 0 0 0
LL_AICC_4 0 0 0 0 0 0 0 0 0 0 0 0
wi_AICC_5 0 0 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0 0 0
AICC_5 0 0 0 0 0 0 0 0 0 0 0 0
d_AICC_5 0 0 0 0 0 0 0 0 0 0 0 0
LL_AICC_5 0 0 0 0 0 0 0 0 0 0 0 0
wi_AICC_5 0 0 0 0 0 0 0 0 0 0 0 0
[,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22]
ID 0 0 0 0 0 0 0 0 0 0
AICC_1 0 0 0 0 0 0 0 0 0 0
d_AICC_1 0 0 0 0 0 0 0 0 0 0
LL_AICC_1 0 0 0 0 0 0 0 0 0 0
wi_AICC_1 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0
AICC_2 0 0 0 0 0 0 0 0 0 0
d_AICC_2 0 0 0 0 0 0 0 0 0 0
LL_AICC_2 0 0 0 0 0 0 0 0 0 0
wi_AICC_2 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0
AICC_3 0 0 0 0 0 0 0 0 0 0
d_AICC_3 0 0 0 0 0 0 0 0 0 0
LL_AICC_3 0 0 0 0 0 0 0 0 0 0
wi_AICC_3 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0
AICC_4 0 0 0 0 0 0 0 0 0 0
d_AICC_4 0 0 0 0 0 0 0 0 0 0
LL_AICC_4 0 0 0 0 0 0 0 0 0 0
wi_AICC_5 0 0 0 0 0 0 0 0 0 0
ID 0 0 0 0 0 0 0 0 0 0
AICC_5 0 0 0 0 0 0 0 0 0 0
d_AICC_5 0 0 0 0 0 0 0 0 0 0
LL_AICC_5 0 0 0 0 0 0 0 0 0 0
wi_AICC_5 0 0 0 0 0 0 0 0 0 0