Ich bin noch ein ziemlicher Neuling im Umgang mit RStudio. In den letzten Wochen dachte ich, ich hätte mir ein solides Grundwissen angeeignet, aber ich komme gerade einfach nicht weiter.
RStudio spuckt mir fehlerhafte Plots aus und will ab einem bestimmten Punkt einfach keine Befehle mehr ausführen. Wahrscheinlich ist es irgendwas kleines und ich komme einfach nicht drauf...
Ich habe 20 .csv Datensätze, die ich in einem Plot darstellen möchte. Mit dem folgenden Code hat es mit zehn Datensätzen im Vorfeld funktioniert.
Code: Alles auswählen
ibrary(tidyverse)
library(ggplot2)
setwd("~/RZielordner/Anisotropie.R/X.R")
read_plus <- function(flnm) {
read.csv2(flnm) %>%
mutate(filename = flnm)
}
tbl_All_Observations <-
list.files(pattern = "*.csv",
full.names = T) %>%
map_df(~read_plus(.))
plot(tbl_All_Observations$Kraft, tbl_All_Observations$Weg, type="l", xlab="Weg", ylab="Kraft", main="Anisotropietest", lwd="0.5", col = c("red"))
lm (formula = tbl_All_Observations$Kraft ~ tbl_All_Observations$Weg)
#Korrelation prüfen
Modell <- lm (formula = tbl_All_Observations$Kraft ~ tbl_All_Observations$Weg)
Modell
summary(Modell)
r <- cor(tbl_All_Observations$Kraft, tbl_All_Observations$Weg)
r
r^2ibrary(tidyverse)
library(ggplot2)
setwd("~/RZielordner/Anisotropie.R/X.R")
read_plus <- function(flnm) {
read.csv2(flnm) %>%
mutate(filename = flnm)
}
tbl_All_Observations <-
list.files(pattern = "*.csv",
full.names = T) %>%
map_df(~read_plus(.))
plot(tbl_All_Observations$Kraft, tbl_All_Observations$Weg, type="l", xlab="Weg", ylab="Kraft", main="Anisotropietest", lwd="0.5", col = c("red"))
lm (formula = tbl_All_Observations$Kraft ~ tbl_All_Observations$Weg)
#Korrelation prüfen
Modell <- lm (formula = tbl_All_Observations$Kraft ~ tbl_All_Observations$Weg)
Modell
summary(Modell)
r <- cor(tbl_All_Observations$Kraft, tbl_All_Observations$Weg)
r
r^2
Mein Ziel ist es die Daten vernünftig dahrzustellen und danach eine Regressionsanalyse durchzuführen. Bei allen Datensätzen davor hat es wunderbar gepasst und jetzt funktioniert nach dem platten gar nichts mehr.
Kann mir jemand helfen? Ich wäre wirklich sehr dankbar...
Viele Grüße, Franzi