As part of my dissertation, I interviewed users via repertory-grid-interview. Specifically, I asked users about their attitude towards personalization and privacy protection I eanalyzed the interviews using the OpenRepGrid package in R and created a 3d model (Slater biplot) of user privacy reality/perception across all 16 participants.
For detailed infos check the vignette of OpenRepGrid: https://cran.r-project.org/web/packages/OpenRepGrid/OpenRepGrid.pdf
After ploting, a html-doc was created via html:widget in order to embed the models in this post.
Here I am solely presenting the interactive 3d Slater biplot (Interpretation can be found in my dissertation)
Note: Be ethical about user data.
library(OpenRepGrid)
library(rgl)
library(htmlwidgets)
Grids you want to import follow the format:
| 1 | E1 | E2 | E3 | E4 | 5 |
|---|---|---|---|---|---|
| left pole | 1 | 5 | 3 | 4 | right pole |
| left pole | 3 | 1 | 1 | 3 | right pole |
| left pole | 4 | 2 | 5 | 1 | right pole |
# load different grid interviews
# this is just example code
Grid1 <- importExcel("your path+document name.xlsx", min = 1, max = 5) # define min and max value of grid
Grid2 <- importExcel("your path+document name.xlsx", min = 1, max = 5)
Grid3 <- importExcel("your path+document name.xlsx", min = 1, max = 5)
# this is just example code
Gridall <- bindConstructs(Grid1, Grid2, Grid3)
#save 3d plot as pdf
rgl.postscript("biplot3d.pdf", "pdf")
#take a png screenshot
rgl.snapshot("your path+document name.png", fmt = "png")
# save as a standalone html-doc
htmlwidgets::saveWidget(rglwidget(width = '800', height = '600'), "your path+document name.html")