versuche gerade meine Mittelwerte zu plotten, nur leider bekomme ich immer diese eine Fehlermeldung.
Der Code mit dem ich arbeite
Code: Alles auswählen
library(RSQLite) #DB-Einlesen
m <- dbDriver("SQLite")
con <- dbConnect(m, dbname = "example.sqlite")
alltables <- dbListTables(con) #Ausgabe der vorhandenen Inhalte
alltables
#Parameter auslesen
T <- dbGetQuery(con, 'SELECT T2 FROM example_data WHERE "phiG" = :x', params = list(x = seq(48,52)))
phi <- dbGetQuery(con, 'SELECT phiG FROM example_data WHERE "phiG" = :x', params = list(x = seq(48,52)))
lam <- dbGetQuery(con, 'SELECT lam FROM example_data WHERE "phiG" = :x', params = list(x = seq(48,52)))
# verwendete Parameter zusammenfassen
daten <- data.frame(T, phi, lam)
my2num <- function(x) as.numeric(sub(",", ".", x)) #in Zahlen umwandeln
daten[] <- lapply(daten, my2num)
#Mittelwert berechnen
mittel_T <- aggregate(T ~ phi + lam, data=daten, FUN=mean)
#Graphik
image(mittel_T$phi, mittel_T$lam, mittel_T$T)
Diese Fehlermeldung bekomme ich:
Code: Alles auswählen
> Fehler in image.default(mittel_T$phi, mittel_T$lam, mittel_T$T) :
ansteigende 'x' und 'y' Werte erwartet
> mittel[with(mittel_T, order(lam, phi)), ]
Code: Alles auswählen
phi lam T
1 48 15 14
2 48,5 15 1.47
3 49 15 4.5
...
12 48 16 11.0
13 48,5 16 9.4
14 49 16 2.74
...
23 48 17 0.87
24 48,5 17 -0.4
25 49 17 1.15
glg. jane