likert: Analysis and Visualization Likert Items

likert_anchors <- list(
	'Level of Acceptability (7 point)' = c(
		'Totally unacceptable',
		'Unacceptable',
		'Slightly unacceptable',
		'Neutral',
		'Slightly acceptable',
		'Acceptable',
		'Perfectly Acceptable'),
	'Level of Appropriateness (7 point)' = c(
		'Absolutely inappropriate',
		'Inappropriate',
		'Slightly inappropriate',
		'Neutral',
		'Slightly appropriate',
		'Appropriate',
		'Absolutely appropriate'),
	'Level of Importance (7 point)' = c(
		'Not at all important',
		'Low importance',
		'Slightly important',
		'Neutral',
		'Moderately important',
		'Very important',
		'Extremely important'),
	'Level of Agreement (7 point)' = c(
		'Strongly disagree',
		'Disagree',
		'Somewhat disagree',
		'Neither agree or disagree',
		'Somewhat agree',
		'Agree',
		'Strongly agree'),
	'Knowledge of Action (7 point)' = c(
		'Never true',
		'Rarely true',
		'Sometimes but infrequently true',
		'Neutral',
		'Sometimes true',
		'Usually true',
		'Always true'),
	'Reflect Me? (7 point)' = c(
		'Very untrue of me',
		'Untrue of me',
		'Somewhat untrue of me',
		'Neutral',
		'Somewhat true of me',
		'True of me',
		'Very true of me'),
	'My beliefs (7 point)' = c(
		'Very untrue of what I believe',
		'Untrue of what I believe',
		'Somewhat untrue of what I believe',
		'Neutral',
		'Somewhat true of what I believe',
		'True of what I believe',
		'Very true of what I believe'),
	'Priority (7 point)' = c(
		'Not a priority',
		'Low priority',
		'Somewhat priority',
		'Neutral',
		'Moderate Priority',
		'High priority',
		'Essential priority'),
	'Level of Concern (5 point)' = c(
		'not at all concerned',
		'Slightly concerned',
		'Somewhat concerned',
		'Moderately concerned',
		'Extremely concerned'),
	'Priority Level (5 point)' = c(
		'Not a priority',
		'Low priority',
		'Medium priority',
		'High priority',
		'Essential'),
	'Level of Problem (4 point)' = c(
		'Not at all a problem',
		'Minor problem',
		'Moderate problem',
		'Serious problem'),
	'Affect on X (5 point)' = c(
		'No affect',
		'Minor affect',
		'Neutral',
		'Moderate affect',
		'Major affect'),
	'Level of Consideration (3 point)' = c(
		'Would not consider',
		'Might or might not consider',
		'Definitely consider'),
	'Level of Support/Opposition (5 point)' = c(
		'Strongly oppose',
		'Somewhat oppose',
		'neutral',
		'Somewhat favor',
		'Strongly favor'),
	'Level of Probability (5 point)' = c(
		'Not probable',
		'Somewhat improbable',
		'Neutral',
		'Somewhat probable',
		'Very probable'),
	'Level of Agreement (5 point)' = c(
		'Strongly disagree',
		'Disagree',
		'Neither agree or disagree',
		'Agree',
		'Strongly agree'),
	'Level of Desirability (5 point)' = c(
		'Very undesirable',
		'Undesirable',
		'neutral',
		'Desirable',
		'Very desirable'),
	'Level of Participation (3 point)' = c(
		'No, and not considered',
		'No, but considered',
		'Yes'),
	'Frequency 1 (5 point)' = c(
		'Never',
		'Rarely',
		'Sometimes',
		'Often',
		'Always'),
	'Frequency 2 (5 point)' = c(
		'Never',
		'Rarely',
		'Occasionally',
		'A moderate amount',
		'A great deal'),
	'Frequency of Use (5 point)' = c(
		'Never',
		'Almost never',
		'Occasionally/Sometimes',
		'Almost every time',
		'Every time'),
	'Frequency (7 point)' = c(
		'Never',
		'Rarely, in less than 10% of the chances when I could have',
		'Occasionally, in about 30% of the chances when I could have',
		'Sometimes, in about 50% of the chances when I could have',
		'Frequently, in about 70% of the chances when I could have',
		'Usually, in about 90% of the chances I could have.',
		'Every time'),
	'Amount of Use (5 point)' = c(
		'Never use',
		'Almost never',
		'Occasionally/Sometimes',
		'Almost every time',
		'Frequently use'),
	'Level of Familiarity (5 point)' = c(
		'not at all familiar',
		'Slightly familiar',
		'Somewhat familiar',
		'Moderately familiar',
		'Extremely familiar'),
	'Level of Awareness (5 point)' = c(
		'Not at all aware',
		'Slightly aware',
		'Somewhat aware',
		'Moderately aware',
		'Extremely aware'),
	'Level of Difficulty (5 point)' = c(
		'Very difficult',
		'Difficult',
		'Neutral',
		'Easy',
		'Very easy'),
	'Likelihood (5 point)' = c(
		'Extremely unlikely',
		'unlikely',
		'Neutral',
		'likely',
		'Extremely likely'),
	'Level of Detraction (5 point)' = c(
		'detracted very little',
		' ',
		'Neutral',
		' ',
		'Detracted very much'),
	'Good / Bad (5 point)' = c(
		'Very negative',
		' ',
		'Neutral',
		' ',
		'Very positive'),
	'Barriers (4 point)' = c(
		'Not a barrier',
		'Somewhat of a barrier',
		'Moderate barrier',
		'Extreme barrier'),
	'Level of Satisfaction (5 point)' = c(
		'Very dissatisfied',
		'dissatisfied',
		'unsure',
		'satisfied',
		'Very satisfied'),
	'Level of Satisfaction (5 point)' = c(
		'Not at all satisfied',
		'slightly satisfied',
		'moderately satisfied',
		'Very satisfied',
		'Extremely satisfied'),
	'Level of Satisfaction (7 point)' = c(
		'Completely dissatisfied',
		'Mostly dissatisfied',
		'Somewhat dissatisfied',
		'neither satisfied or dissatisfied',
		'Somewhat satisfied',
		'Mostly satisfied',
		'Completely satisfied'),
	'Level of Quality (5 point)' = c(
		'Poor',
		'Fair',
		'Good',
		'Very good',
		'Excellent'),
	'Comparison of Two Products (5 point)' = c(
		'much worse',
		'somewhat worse',
		'about the same',
		'somewhat better',
		'much better'),
	'Level of Responsibility (4 point)' = c(
		'Not at all responsible',
		'somewhat responsible',
		'mostly responsible',
		'completely responsible'),
	'Level of Influence (5 point)' = c(
		'not at all influential',
		'slightly influential',
		'somewhat influential',
		'very influential',
		'extremely influential')
)