9  第12章

pacman::p_load(pricesensitivitymeter, tidyverse)
#コード 12-1
# install.packages("pricesensitivitymeter")
# library(pricesensitivitymeter)
# library(tidyverse)

#コード 12-2
psm_ex <- read.csv("data/psm_ex.csv", na = ".")
head(psm_ex)

   tch   ch   ex  tex
1  963 1016 1242 1318
2  866 1082 1272 1303
3  795  824 1290 1297
4  812  933 1211 1335
5 1026  818 1228 1289
6  912  987 1195 1395

#コード 12-3
output_psm <- psm_analysis(
  toocheap = "tch",
  cheap = "ch",
  expensive = "ex",
  tooexpensive = "tex",
  data = psm_ex
)

summary(output_psm)

Van Westendorp Price Sensitivity Meter Analysis

Accepted Price Range: 922.5 - 1253 
Indifference Price Point: 1101 
Optimal Price Point: 1058 

---
157 cases with individual price preferences were analyzed (unweighted data).
Total data set consists of 250 cases. Analysis was limited to cases with transitive price preferences.
(Removed: n = 93 / 37% of data)

#コード 12-4
psm_plot(output_psm) +
  labs(
    x = "Price",
    y = "Share of Respondents (0-1)",
    title = "Price Sensitivity Meter Plot",
    caption = "Shaded area: range of acceptable prices\nData: Randomly generated") +
  theme_minimal()