Trust In Science 2
Roihan
2024-07-03
library(readxl)## Warning: package 'readxl' was built under R version 4.4.1pilot2 <- read_xlsx("C:/Users/user/Documents/Scientific Fact Survey 2.xlsx")
survey2 <- complete.cases(pilot2)
survey_complete2 <- pilot2[survey2, ]
head(survey_complete2)## # A tibble: 6 × 49
## `NAMA LENGKAP` Sains sangat bermanfaat untuk m…¹ Ada banyak kebutuhan…²
## <chr> <dbl> <dbl>
## 1 Najua Tunnisa 4 4
## 2 Cindy 4 4
## 3 Khalida Landra 4 4
## 4 Maulana D 4 4
## 5 Tri Astuti 4 4
## 6 Salma Rahmanisa Yunia 4 4
## # ℹ abbreviated names:
## # ¹`Sains sangat bermanfaat untuk memecahkan permasalahan sehari hari.`,
## # ²`Ada banyak kebutuhan untuk menggunakan ilmu sains dalam kebanyakan pekerjaan.`
## # ℹ 46 more variables:
## # `Kebanyakan orang harus mempelajari sedikit tentang sains.` <dbl>,
## # `Sains adalah sesuatu yang membantu untuk memahami dunia saat ini.` <dbl>,
## # `Sains sangat penting bagi pembangunan nasional.` <dbl>, …summary(survey_complete2)## NAMA LENGKAP
## Length:46
## Class :character
## Mode :character
##
##
##
## Sains sangat bermanfaat untuk memecahkan permasalahan sehari hari.
## Min. :2.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.065
## 3rd Qu.:4.000
## Max. :5.000
## Ada banyak kebutuhan untuk menggunakan ilmu sains dalam kebanyakan pekerjaan.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.022
## 3rd Qu.:4.000
## Max. :5.000
## Kebanyakan orang harus mempelajari sedikit tentang sains.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.761
## 3rd Qu.:4.000
## Max. :5.000
## Sains adalah sesuatu yang membantu untuk memahami dunia saat ini.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.043
## 3rd Qu.:4.000
## Max. :5.000
## Sains sangat penting bagi pembangunan nasional.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.043
## 3rd Qu.:4.000
## Max. :5.000
## Pentingnya mengetahui ilmu pengetahuan agar dapat memperoleh pekerjaan yang baik.
## Min. :3
## 1st Qu.:4
## Median :4
## Mean :4
## 3rd Qu.:4
## Max. :5
## Kita dapat menjalani kehidupan sehari-hari dengan sempurna dengan sains.
## Min. :3.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.717
## 3rd Qu.:4.000
## Max. :5.000
## Kebanyakan ide dalam sains bermanfaat.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.043
## 3rd Qu.:4.000
## Max. :5.000
## Perilaku seseorang terbentuk dari perpaduan antara faktor genetika dan lingkungan.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.196
## 3rd Qu.:5.000
## Max. :5.000
## Self-Esteem terbentuk melalui validasi orang lain dan kompetensi personal individu.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.674
## 3rd Qu.:4.000
## Max. :5.000
## Pada umumnya, Individu di bawah usia 6 tahun belum mampu membayangkan kronologi kejadian dengan urutan yang terbalik.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.565
## 3rd Qu.:4.000
## Max. :5.000
## Kondisi hormon dan neurotransmitter individu dapat memengaruhi psychological wellbeing.
## Min. :3.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.783
## 3rd Qu.:4.000
## Max. :5.000
## Permasalahan mental dapat disebabkan oleh metode berpikir yang buruk.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.109
## 3rd Qu.:5.000
## Max. :5.000
## Individu di jenjang Sekolah Dasar memiliki kecenderungan untuk mengikuti pendapat kelompoknya dalam menyelesaikan dilema moral.
## Min. :2.000
## 1st Qu.:4.000
## Median :4.000
## Mean :3.935
## 3rd Qu.:4.000
## Max. :5.000
## Individu di usia remaja memiliki tendensi untuk selalu berpikir bahwa diri mereka selalu menjadi pusat perhatian.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.652
## 3rd Qu.:4.000
## Max. :5.000
## Kerusakan pada otak dapat mengubah sifat, empati, dan kemampuan individu dalam menghadapi berbagai tantangan di kehidupan sehari-hari.
## Min. :2.000
## 1st Qu.:4.000
## Median :4.000
## Mean :3.978
## 3rd Qu.:4.000
## Max. :5.000
## Rasa takut merupakan suatu hal yang berasal dari proses belajar.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.065
## 3rd Qu.:4.750
## Max. :5.000
## Tipe pengasuhan orang tua sangat berdampak pada perilaku anaknya.
## Min. :3.000
## 1st Qu.:4.000
## Median :5.000
## Mean :4.543
## 3rd Qu.:5.000
## Max. :5.000
## Mengkonsumsi cacing tanah bisa menyembuhkan penyakit tifus,
## Min. :1.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.217
## 3rd Qu.:4.000
## Max. :5.000
## Minum teh tidak baik untuk tubuh karena bisa memperlambat metabolisme.
## Min. :1.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.239
## 3rd Qu.:4.000
## Max. :5.000
## Mengonsumsi susu bebarengan dengan obat akan menghambat kinerja obat.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.739
## 3rd Qu.:4.000
## Max. :5.000
## Mengkonsumsi makanan dengan cara masak dibakar bisa memicu penyakit kanker.
## Min. :2.0
## 1st Qu.:3.0
## Median :3.5
## Mean :3.5
## 3rd Qu.:4.0
## Max. :5.0
## Mengkonsumsi soda bisa menyebabkan obesitas.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.761
## 3rd Qu.:4.000
## Max. :5.000
## Rutin mengonsumsi teh dan kopi bagi ibu hamil berdampak buruk terhadap bayi yang sedang dikandungnya.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.674
## 3rd Qu.:4.000
## Max. :5.000
## Melakukan vaksinasi sama halnya dengan memasukkan virus atau penyakit tertentu ke dalam tubuh.
## Min. :2.00
## 1st Qu.:3.00
## Median :4.00
## Mean :3.63
## 3rd Qu.:4.00
## Max. :5.00
## Terlalu banyak mengonsumsi nasi dapat menyebabkan diabetes.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.609
## 3rd Qu.:4.000
## Max. :5.000
## Terlalu banyak mengonsumsi suplemen dan vitamin dapat berdampak buruk pada tubuh, seperti timbulnya penyakit tertentu.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.543
## 3rd Qu.:4.000
## Max. :5.000
## Kebiasaan menahan kencing berpotensi menyebabkan penyakit batu ginjal dan infeksi kandung kemih.
## Min. :2.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.087
## 3rd Qu.:4.750
## Max. :5.000
## Air mendidih pada suhu 100°C.
## Min. :2.000
## 1st Qu.:3.250
## Median :4.000
## Mean :3.957
## 3rd Qu.:4.750
## Max. :5.000
## revolusi yang berarti gerak bumi mengelilingi matahari, dan rotasi yang artinya gerak bumi berputar pada porosnya.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.174
## 3rd Qu.:5.000
## Max. :5.000
## suatu benda bisa bergerak melingkar, karena adanya gaya sentripetal.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.761
## 3rd Qu.:4.000
## Max. :5.000
## Atom merupakan bola pejal yang bermuatan positif dan di dalamnya tersebar myatan negatif electron.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.826
## 3rd Qu.:4.000
## Max. :5.000
## Resultan gaya yang bekerja pada suatu benda sama dengan hasil kali dari massa dan percepatan benda tersebut.
## Min. :3.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.717
## 3rd Qu.:4.000
## Max. :5.000
## Sumber cahaya pada senter berasal dari sebuah bola lampu pijar yang berukuran kecil.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.674
## 3rd Qu.:4.000
## Max. :5.000
## Distorsi / pembiasan Cahaya Sebenarnya Hanyalah Soal Perspektif.
## Min. :2.0
## 1st Qu.:3.0
## Median :3.0
## Mean :3.5
## 3rd Qu.:4.0
## Max. :5.0
## Maghnet hanya menarik benda-benda tertentu.
## Min. :3.000
## 1st Qu.:4.000
## Median :4.000
## Mean :4.022
## 3rd Qu.:4.750
## Max. :5.000
## Termodinamika terdapat dalam alat dispenser dengan konsep heater dan cooler.
## Min. :3.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.783
## 3rd Qu.:4.000
## Max. :5.000
## Ketika awan gas dan debu berkontraksi, pusat kondensasi kecil terbentuk yang akhirnya menjadi bintang baru.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.609
## 3rd Qu.:4.000
## Max. :5.000
## Segitiga Degenerasi memiliki 2 sisi dan tidak memiliki luas.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.326
## 3rd Qu.:4.000
## Max. :5.000
## statistik hanya menggambarkan pola dalam data dan tidak selalu menghasilkan jawaban yang pasti.
## Min. :2.00
## 1st Qu.:3.00
## Median :3.00
## Mean :3.37
## 3rd Qu.:4.00
## Max. :5.00
## Teorema Pythagoras dapat berlaku oleh segitiga lain.
## Min. :1.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.239
## 3rd Qu.:4.000
## Max. :5.000
## Matematika juga ada variabel. Tergantung cara atau metode yang akan digunakan.
## Min. :2.000 Min. :3.000
## 1st Qu.:4.000 1st Qu.:3.000
## Median :4.000 Median :4.000
## Mean :3.957 Mean :3.848
## 3rd Qu.:4.000 3rd Qu.:4.000
## Max. :5.000 Max. :5.000
## Matematika sangat berguna dalam kehidupan sehari-hari. Pada kasus logika 1+1=0
## Min. :3.000 Min. :1.000
## 1st Qu.:4.000 1st Qu.:3.000
## Median :4.000 Median :3.000
## Mean :4.174 Mean :3.239
## 3rd Qu.:5.000 3rd Qu.:4.000
## Max. :5.000 Max. :5.000
## Sampel besar bisa mengandung bias yang sama dengan sampel kecil.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.413
## 3rd Qu.:4.000
## Max. :5.000
## statistik dapat digunakan dengan cerdik untuk memengaruhi opini publik.
## Min. :2.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.739
## 3rd Qu.:4.000
## Max. :5.000
## Regresi linear hanya cocok untuk hubungan linier antara variabel.
## Min. :2.000
## 1st Qu.:3.000
## Median :3.500
## Mean :3.565
## 3rd Qu.:4.000
## Max. :5.000# Menghitung mean pada kolom 2-9
sikap <- rowMeans(survey_complete2[, 2:9], na.rm = TRUE)
# Menghitung mean pada kolom 10-49
kerentanan <- rowMeans(survey_complete2[, 10:49], na.rm = TRUE)
# Menggabungkan hasil mean menjadi satu kolom setiap barisnya
result2 <- cbind(sikap, kerentanan)
head(result2)## sikap kerentanan
## [1,] 3.750 3.100
## [2,] 4.000 3.850
## [3,] 3.875 3.400
## [4,] 3.875 3.525
## [5,] 4.000 3.050
## [6,] 4.000 3.675# Mengubah matriks menjadi data frame
hasil2 <- as.data.frame(result2)
p2 <- lm(sikap ~ kerentanan, data = hasil2)
summary(p2)##
## Call:
## lm(formula = sikap ~ kerentanan, data = hasil2)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.87419 -0.16361 -0.00678 0.16612 0.90152
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.5658 0.4150 6.182 1.82e-07 ***
## kerentanan 0.3738 0.1103 3.389 0.00149 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3413 on 44 degrees of freedom
## Multiple R-squared: 0.207, Adjusted R-squared: 0.189
## F-statistic: 11.49 on 1 and 44 DF, p-value: 0.001489plot(hasil2$sikap,hasil2$kerentanan,pch=16,xlab="Sikap",ylab="Kerentanan")
abline(p2,col="red")
anova(p2)## Analysis of Variance Table
##
## Response: sikap
## Df Sum Sq Mean Sq F value Pr(>F)
## kerentanan 1 1.3382 1.33816 11.485 0.001489 **
## Residuals 44 5.1265 0.11651
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1