2 Fragebögen mit Berechnung der Spearman-Korrelation

Modelle zur Korrelations- und Regressionsanalyse

Moderator: EDi

Antworten
Ante
Beiträge: 9
Registriert: Di Apr 25, 2023 10:59 am

2 Fragebögen mit Berechnung der Spearman-Korrelation

Beitrag von Ante »

Hallo,
ich möchte einen Fragenbogenteil ASQ_secure vom Fragebogen ASQ (ASQ Werte/Items) mit dem Fragebogen DCS (DCS Werte/Items) miteinander korrelieren lassen.

Zuerst habe ich die Fragebögen in zwei Variablen mit den entsprechenden numerischen Werten zusammengefasst :

Code: Alles auswählen

 
 
 AS_secure<-c(ASQ_secure$AS01_01, ASQ_secure$AS01_02, ASQ_secure$AS01_03,ASQ_secure$AS01_20, ASQ_secure$AS02_11, ASQ_secure$AS02_13, ASQ_secure$AS02_17, ASQ_secure$AS02_18, ASQ_secure$AS01_15, ASQ_secure$AS01_19, ASQ_secure$AS02_06, ASQ_secure$AS02_07, ASQ_secure$AS02_12, ASQ_secure$AS02_14, ASQ_secure$AS02_15)


DC <-c(DCS$DC01_02,DCS$DC01_03, DCS$DC01_04, DCS$DC01_05, DCS$DC01_06, DCS$DC01_07, DCS$DC01_08, DCS$DC01_09, DCS$DC01_10, DCS$DC01_11, DCS$DC01_12, DCS$DC01_13, DCS$DC01_14, DCS$DC01_15, DCS$DC01_16, DCS$DC01_17, DCS$DC01_18, DCS$DC01_19, DCS$DC01_20)
 
Danach habe ich die beiden zusammengefassten Fragebögenwerte mit der Spearman-Korrelation berechnen wollen.

Code: Alles auswählen

library(stats) 
cor(AS_secure, DC,method="spearman")

Daraufhin erscheint jedoch folgende Fehlermeldung:"Error in cor(AS_secure, DC, method = "spearman") :
inkompatible Dimensionen".

Alternativ habe diesen Code auspobiert:

Code: Alles auswählen

cor(ASQ_secure$AS01_01, ASQ_secure$AS01_02, ASQ_secure$AS01_03,ASQ_secure$AS01_20, ASQ_secure$AS02_11, ASQ_secure$AS02_13, ASQ_secure$AS02_17, ASQ_secure$AS02_18, ASQ_secure$AS01_15, ASQ_secure$AS01_19, ASQ_secure$AS02_06, ASQ_secure$AS02_07, ASQ_secure$AS02_12, ASQ_secure$AS02_14, ASQ_secure$AS02_15, DCS$DC01_02,DCS$DC01_03, DCS$DC01_04, DCS$DC01_05, DCS$DC01_06, DCS$DC01_07, DCS$DC01_08, DCS$DC01_09, DCS$DC01_10, DCS$DC01_11, DCS$DC01_12, DCS$DC01_13, DCS$DC01_14, DCS$DC01_15, DCS$DC01_16, DCS$DC01_17, DCS$DC01_18, DCS$DC01_19, DCS$DC01_20, method="spearman")
Daraufhin erscheint diesmal die Fehlermeldung: "Error in cor(ASQ_secure$AS01_01, ASQ_secure$AS01_02, ASQ_secure$AS01_03, :
unused arguments (ASQ_secure$AS01_20, ASQ_secure$AS02_11, ASQ_secure$AS02_13, ASQ_secure$AS02_17, ASQ_secure$AS02_18, ASQ_secure$AS01_15, ASQ_secure$AS01_19, ASQ_secure$AS02_06, ASQ_secure$AS02_07, ASQ_secure$AS02_12, ASQ_secure$AS02_14, ASQ_secure$AS02_15, DCS$DC01_02, DCS$DC01_03, DCS$DC01_04, DCS$DC01_05, DCS$DC01_06, DCS$DC01_07, DCS$DC01_08, DCS$DC01_09, DCS$DC01_10, DCS$DC01_11, DCS$DC01_12, DCS$DC01_13, DCS$DC01_14, DCS$DC01_15, DCS$DC01_16, DCS$DC01_17, DCS$DC01_18, DCS$DC01_19, DCS$DC01_20)"

Was mache ich falsch!?
Ich bedanke mich im Voraus für eine Antwort!
bigben
Beiträge: 2771
Registriert: Mi Okt 12, 2016 9:09 am

Re: 2 Fragebögen mit Berechnung der Spearman-Korrelation

Beitrag von bigben »

Hallo,

Kannst Du mal folgendes laufen lassen und die Ergebnisse posten?

Code: Alles auswählen

str(ASQ_secure)     # Data frame oder tibble?
str(AS_secure)      # was ist hier erstellt worden?
dim(AS_secure)      # Fehlermeldung weist auf falsche Dimensionen hin
summary(AS_secure)  # u. A. Anzahl der NA

str(DCS)
str(DC)
dim(DC)
summary(DC)
Einfach damit wir ein besseres Gefühl bekommen, was das aus der Sicht von R für Daten sind.

Es erscheint mir merkwürdig, hier einzelne Items zu korrellieren. Willst Du nicht eigentlich Summenscores bilden?


LG, Bernhard
---
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Ante
Beiträge: 9
Registriert: Di Apr 25, 2023 10:59 am

Re: 2 Fragebögen mit Berechnung der Spearman-Korrelation

Beitrag von Ante »

Ja mein Ziel ist es, dass ich in der Lage bin zusammengefasste Items aus einem Fragebogen (1.Fragebogen,hier: ASQ), die gemeinsam eine Subskala (ASQ_secure) angehören, mit anderen Items, die einer Subskala angehören eines anderen Fragebogen (2.Fragebogen,DCS) oder generell mit einem anderen Fragebogen (DCS) korrelieren zu können.

Code: Alles auswählen


str(ASQ_secure)     # Data frame oder tibble?
'data.frame':	121 obs. of  15 variables:
 $ AS01_01: 'avector' num  5 4 5 4 6 6 5 5 6 6 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 1. Im Großen und Ganzen gesehen bin ich eine wertvolle Person."
 $ AS01_02: 'avector' num  3 2 3 2 6 3 3 4 4 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 2. Es fällt mir leichter als anderen Menschen jemanden kennen zu lernen."
 $ AS01_03: 'avector' num  4 5 6 4 6 6 5 6 4 6 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 3. Ich bin sicher, dass andere Menschen für mich da sind, wenn ich sie brauche."
 $ AS01_20: 'avector' num  4 4 4 4 4 5 3 5 5 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 20. Es fällt mir leicht, anderen Menschen nahe zu kommen."
 $ AS02_11: 'avector' num  4 3 4 4 5 4 4 4 6 4 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 31. Ich fühle mich im Umgang mit anderen sicher."
 $ AS02_13: 'avector' num  4 5 5 1 3 5 6 5 6 2 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 33. Ich mache mir oft Sorgen, dass ich nicht wirklich zu anderen Menschen passe. (umgepolt)"
 $ AS02_17: 'avector' num  5 4 2 4 2 3 2 4 6 4 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 37. Wenn mich etwas belastet, bemerken das andere im Allgemeinen und sind besorgt."
 $ AS02_18: 'avector' num  4 4 5 3 4 5 5 5 6 5 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft nicht auf mich zu"
  ..- attr(*, "3")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft auf mich zu"
  ..- attr(*, "6")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 38. Ich bin sicher, dass andere Menschen mich mögen und respektieren."
 $ AS01_15: 'avector' num  5 3 4 2 4 5 6 5 6 2 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 15. Manchmal denke ich, dass ich zu nichts tauge. (umgepolt)"
 $ AS01_19: 'avector' num  4 5 5 3 4 5 5 2 6 4 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 19. Ich habe den Eindruck, dass andere Menschen mir nicht so nahe kommen wollen, wie ich es gerne möchte. (umgepolt)"
 $ AS02_06: 'avector' num  4 2 4 2 5 5 4 5 5 2 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 26. Wenn ich anderen Menschen nahekommen möchte, fühle ich mich dabei unsicher. (umgepolt)"
 $ AS02_07: 'avector' num  5 4 3 2 6 5 4 5 6 3 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 27. Ich frage mich, warum Menschen mit mir zu tun haben möchten. (umgepolt)"
 $ AS02_12: 'avector' num  4 4 5 2 5 4 6 5 6 3 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 32. Ich fühle mich oft übersehen oder alleine. (umgepolt)"
 $ AS02_14: 'avector' num  4 3 5 3 1 5 4 5 3 1 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 34. Andere Menschen haben eigene Probleme, deshalb möchte ich sie nicht mit meinen belasten. (umgepolt)"
 $ AS02_15: 'avector' num  4 3 5 4 3 5 5 5 5 6 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft auf mich zu"
  ..- attr(*, "3")= chr "trifft eher auf mich zu"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft nicht auf mich zu"
  ..- attr(*, "6")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "ASQ: 35. Wenn ich mit anderen über meine Probleme spreche, fühle ich mich im Allgemeinen beschämt oder dumm. (umgepolt)"
 - attr(*, "project")= chr "Eigenschaft"
 - attr(*, "description")= chr "\"Persönlichkeitsstudie\""
 - attr(*, "date")= chr "2023-04-23 11:44:43"
 - attr(*, "server")= chr "https://www.soscisurvey.de"
> str(AS_secure)      # was ist hier erstellt worden?
 num [1:1815] 5 4 5 4 6 6 5 5 6 6 ...
> dim(AS_secure)      # Fehlermeldung weist auf falsche Dimensionen hin
NULL
> summary(AS_secure)  # u. A. Anzahl der NA
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   3.000   4.000   3.885   5.000   6.000 
> 
> str(DCS)
'data.frame':	121 obs. of  20 variables:
 $ DC01_01: 'avector' num  4 4 5 2 5 5 4 4 5 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 1. Ich habe lieber einen Arbeitsplatz, bei dem ich großen Einfluss darauf habe, was ich mache und wann ich etwas mache."
 $ DC01_02: 'avector' num  4 2 4 2 5 4 4 5 5 4 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 2. Ich halte mich über politische Dinge immer auf dem laufenden, um zu möglichst vielen politischen Themen"| __truncated__
 $ DC01_03: 'avector' num  4 2 3 2 4 5 4 4 3 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 3. Ich versuche Situationen zu vermeiden, in denen mir jemand vorschreiben kann, was ich zu machen habe."
 $ DC01_04: 'avector' num  4 2 5 3 5 3 5 4 3 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 4. Ich wäre lieber Vorgesetzter als Untergebener."
 $ DC01_05: 'avector' num  4 4 2 2 5 1 3 4 3 2 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 5. Es macht mir Spaß, andere Menschen in ihrem Tun zu beeinflussen."
 $ DC01_06: 'avector' num  2 3 4 4 3 1 4 5 4 2 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 6. Bevor ich eine längere Autofahrt mache, überprüfe ich mein Auto sorgfältig."
 $ DC01_07: 'avector' num  5 4 5 4 5 5 4 4 4 4 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft eher auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 7. Was für mich am besten ist, wissen andere Menschen gewöhnlich besser als ich selbst. (umgepolt)"
 $ DC01_08: 'avector' num  4 3 4 4 5 5 4 4 5 4 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 8. Entscheidungen, die mich betreffen, fälle ich am liebsten selbst."
 $ DC01_09: 'avector' num  5 4 5 4 5 5 4 5 5 5 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 9. Was in meinem Leben passiert, möchte ich gerne selbst bestimmen können."
 $ DC01_10: 'avector' num  3 2 2 1 4 2 3 4 4 1 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft eher auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 10. Ich habe es gern, wenn ich in einer Gruppe nicht die Führung zu übernehmen brauche. (umgepolt)"
 $ DC01_11: 'avector' num  2 2 4 1 4 4 3 4 4 2 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 11. Ich bin sicher, dass ich im Allgemeinen besser als andere Menschen mit Problemen fertig werde."
 $ DC01_12: 'avector' num  4 2 4 2 4 3 4 4 4 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 12. Ich gehe lieber meinen eigenen Weg und mache meine eigenen Fehler, als dass ich die Vorschriften von j"| __truncated__
 $ DC01_13: 'avector' num  4 4 4 5 5 2 4 2 5 5 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 13. Ich möchte ganz genau wissen, was bei einer neuen Aufgabe auf mich zukommt, bevor ich damit anfange."
 $ DC01_14: 'avector' num  5 2 5 4 5 4 4 4 5 2 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 14. Wenn irgendwo ein Problem auf mich zukommt, unternehme ich lieber etwas, als dass ich nur herumsitze und nichts tue."
 $ DC01_15: 'avector' num  4 2 4 4 5 3 3 4 3 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 15. Es ist mir lieber, Vorschriften zu erlassen, als sie selbst befolgen zu müssen."
 $ DC01_16: 'avector' num  4 2 4 2 4 5 4 4 3 2 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft eher auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 16. Mir wäre es lieber, wenn jemand anders die vielen Entscheidungen in meinem Leben für mich treffen könnte. (umgepolt)"
 $ DC01_17: 'avector' num  4 5 3 5 4 3 4 5 5 5 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 17. Ich vermeide beim Autofahren solche Situationen, in denen ich durch den Fehler eines anderen in einen "| __truncated__
 $ DC01_18: 'avector' num  4 2 3 2 4 5 3 4 3 3 ...
  ..- attr(*, "1")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "2")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher auf mich zu"
  ..- attr(*, "5")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 18. Am liebsten vermeide ich solche Situationen, in denen andere mir vorschreiben, was ich zu tun habe."
 $ DC01_19: 'avector' num  4 2 3 2 4 3 4 2 4 2 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft eher auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 19. Bei vielen Dingen ist es mir lieber, wenn festgelegt ist, was ich zu tun habe und ich keine Entscheidu"| __truncated__
 $ DC01_20: 'avector' num  4 5 2 2 3 3 3 4 4 2 ...
  ..- attr(*, "1")= chr "trifft voll und ganz auf mich zu"
  ..- attr(*, "2")= chr "trifft eher auf mich zu"
  ..- attr(*, "3")= chr "Ich kann mich nicht entscheiden"
  ..- attr(*, "4")= chr "trifft eher nicht auf mich zu"
  ..- attr(*, "5")= chr "trifft überhaupt nicht auf mich zu"
  ..- attr(*, "comment")= chr "DCS: 20. Ich warte zunächst lieber ab, ob jemand ein Problem löst, und hoffe, dass ich nicht damit belästigt werde. (umgepolt)"
 - attr(*, "project")= chr "Eigenschaft"
 - attr(*, "description")= chr "\"Persönlichkeitsstudie\""
 - attr(*, "date")= chr "2023-04-23 11:44:43"
 - attr(*, "server")= chr "https://www.soscisurvey.de"
> str(DC)
 num [1:2299] 4 2 4 2 5 4 4 5 5 4 ...
> dim(DC)
NULL
> summary(DC)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   3.000   4.000   3.509   4.000   5.000 
> 
> 
> 
> 
> 
> 
> 
> 
> #Spearman-Korrelation berechnen:
> library(stats) 
> 
> cor(AS_secure, DC,method="spearman")
Error in cor(AS_secure, DC, method = "spearman") : 
  inkompatible Dimensionen
> 



bigben
Beiträge: 2771
Registriert: Mi Okt 12, 2016 9:09 am

Re: 2 Fragebögen mit Berechnung der Spearman-Korrelation

Beitrag von bigben »

Hallo Ante,
Ante hat geschrieben: Di Apr 25, 2023 3:36 pmJa mein Ziel ist es, dass ich in der Lage bin zusammengefasste Items aus einem Fragebogen (1.Fragebogen,hier: ASQ), die gemeinsam eine Subskala (ASQ_secure) angehören...
Du hast R nie gesagt, dass irgendwelche Skalen oder Subskalen gebildet werden sollen. Du hast die Antworten auf die Items mit c() aneinander gehängt. So entstand aus Deinen 121 Beobachtungen eine Variable AS_secure in der 1815 einzelne Werte hinterlegt sind.
Ebenso entstand eine Variable DC mit 2299 einzelnen Itemwerten. Natürlich beschwert R sich, dass es eine Variable mit 1815 Einträgen nicht mit einer anderen mit 2299 Werten korrelieren kann ("inkompatible Dimensionen" nennt die Fehlermeldung das).

Ich kann mir nicht vorstellen, dass Du diese ganzen Itemwerte korrellieren willst. Ganz bestimmt willst Du die verschiedenen Items erst zu je 121 Skalenwerten zusammenfassen (ich vermute mal, durch Addition? Vielleicht auch erst einige Umpolen und dann addieren?). Später willst Du dann bestimmt die Korrelation von 121 Skalenwerte im Bereich ASQ mit 121 Skalenwerten im Bereich DCS berechnen.

LG,
Bernhard
---
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Ante
Beiträge: 9
Registriert: Di Apr 25, 2023 10:59 am

Re: 2 Fragebögen mit Berechnung der Spearman-Korrelation

Beitrag von Ante »

Hallo, ja das habe ich beim Recherchieren, dann auch festgestellt und habe jetzt Skalenwerte erstellt um die Summenscores der Subskalen zu ermitteln. Diese Summenscores habe dann zusammen korreliert und das hat geklappt.

Code: Alles auswählen


# 1.ASQ_secure Skalen erstellen:#
#neue Skala= AS_s_skala erstellen
#Erstellung Summenscore:
#Sichtung Summenscore=in Konsole eigeben:ASQ$AS_s_skala_sum
ASQ$AS_s_skala_sum<-rowSums(subset(ASQ, select= c(AS01_01, AS01_02, AS01_03, AS01_20, AS02_11, AS02_13, AS02_17,AS02_18,AS01_15,AS01_19, AS02_06,AS02_07,AS02_12,AS02_14, AS02_15)), na.rm =TRUE )

# 2.ASQ_insecure Skalen erstellen:#
#neue Skala= AS_i_skala erstellen
#Erstellung Summenscore:
#Sichtung Summenscore=in Konsole eigeben:ASQ_insecure$AS_i_skala_sum
ASQ$AS_i_skala_sum<-rowSums(subset(ASQ, select= c(AS01_04, AS01_05, AS01_06, AS01_07, AS01_08, AS01_09, AS01_10, AS01_11, AS01_12, AS01_13, AS01_14, AS01_16, AS01_18, AS01_21, AS02_01, AS02_02, AS02_03, AS02_04, AS02_05, AS02_08, AS02_09, AS02_10, AS02_16, AS02_19, AS02_20)),na.rm=TRUE)



#DCS Skalen erstellen:#
#neue Skala= DC_skala erstellen
#Sichtung der Skalenmittelwerte=in Konsole eigeben:DCS$DC_skala_sum
DCS$DC_skala_sum<-rowMeans(subset(DCS, select= c(DC01_01, DC01_02, DC01_03,DC01_04,DC01_05,DC01_06,DC01_07,DC01_08,DC01_09, DC01_10, DC01_11, DC01_12, DC01_13, DC01_14, DC01_15,DC01_16, DC01_17,DC01_18,DC01_19,DC01_20)), na.rm = TRUE) 

#Erstellung Summenscore:
#Sichtung Summenscore=in Konsole eigeben:DCS$DC_skala_sum
DCS$DC_skala_sum<-rowSums(subset(DCS, select= c(DC01_01, DC01_02, DC01_03,DC01_04,DC01_05,DC01_06,DC01_07,DC01_08,DC01_09, DC01_10, DC01_11, DC01_12, DC01_13, DC01_14, DC01_15,DC01_16, DC01_17,DC01_18,DC01_19,DC01_20)), na.rm = TRUE)   
        
 
 #Spearman-Korrelation berechnen:
library(stats) 
#AS_s_skala_sum und DC_skala_sum#
cor(ASQ$AS_s_skala_sum, DCS$DC_skala_sum,method="spearman")


#Spearman-Korrelation berechnen:
#AS_i_skala_sum und DC_skala_sum#
cor(ASQ$AS_i_skala_sum, DCS$DC_skala_sum, method="spearman")



Antworten