Check for and report duplicated labels
duplicated-labels.RdThe function duplicated_labels can be used with "item" objects,
"importer" objects or "data.set" objects to check whether items
contain duplicate labels, i.e. labels that are attached to more than
one code.
Usage
duplicated_labels(x)
# S3 method for item
duplicated_labels(x)
# Applicable to 'importer' objects and 'data.set' objects
# S3 method for item.list
duplicated_labels(x)Value
The function duplicate.labels returns a list with a class
attribute, which allows pretty printing of duplicated value labels
Examples
x1 <- as.item(rep(1:5,4),
labels=c(
A = 1,
A = 2,
B = 3,
B = 4,
C = 5
),
annotation = c(
description="Yet another test"
))
#> Warning: Duplicate labels 'A' 'B'
x2 <- as.item(rep(1:4,5),
labels=c(
i = 1,
ii = 2,
iii = 3,
iii = 4
),
annotation = c(
description="Still another test"
))
#> Warning: Duplicate labels 'iii'
x3 <- as.item(rep(1:2,10),
labels=c(
a = 1,
b = 2
),
annotation = c(
description="Still another test"
))
duplicated_labels(x1)
#> A: 1, 2
#> B: 3, 4
ds <- data.set(x1,x2,x3)
duplicated_labels(ds)
#>
#> ================================================================================
#> x1: 'Yet another test'
#> --------------------------------------------------------------------------------
#> A: 1, 2
#> B: 3, 4
#>
#> ================================================================================
#> x2: 'Still another test'
#> --------------------------------------------------------------------------------
#> iii: 3, 4
codebook(ds)
#> ================================================================================
#>
#> x1 'Yet another test'
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'A' 4 20.0
#> 2 'A' 4 20.0
#> 3 'B' 4 20.0
#> 4 'B' 4 20.0
#> 5 'C' 4 20.0
#>
#> ================================================================================
#>
#> x2 'Still another test'
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'i' 5 25.0
#> 2 'ii' 5 25.0
#> 3 'iii' 5 25.0
#> 4 'iii' 5 25.0
#>
#> ================================================================================
#>
#> x3 'Still another test'
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'a' 10 50.0
#> 2 'b' 10 50.0
#>
nes1948.por <- unzip(system.file("anes/NES1948.ZIP",package="memisc"),
"NES1948.POR",exdir=tempfile())
nes1948 <- spss.portable.file(nes1948.por)
#> Warning: 9 variables have duplicated labels:
#> V480004, V480012, V480020, V480021A, V480021B, V480033A, V480033B,
#> V480034A, V480034B
duplicated_labels(nes1948)
#>
#> ================================================================================
#> V480004: 'CODER'
#> --------------------------------------------------------------------------------
#> NAME NOT KNOWN: 1, 2, 3, 4, 5
#>
#> ================================================================================
#> V480012: 'WHAT TO DO W TFT-HT ACT'
#> --------------------------------------------------------------------------------
#> HAVE HEARD OF TAFT-HARTLEY ACT: 5, 6
#>
#> ================================================================================
#> V480020: 'CNSD VT FOR SOMEONE ELSE'
#> --------------------------------------------------------------------------------
#> DID NOT CONSIDER ANYONE ELSE: 11, 22, 33, 44
#> CONSIDERED WALLACE: 13, 23
#> CONSIDERED OTHER: 14, 24
#> NA: 19, 29, 49
#> CONSIDERED TRUMAN: 21, 41
#>
#> ================================================================================
#> V480021A: 'XWHY DID NOT VT FOR HIM 1'
#> --------------------------------------------------------------------------------
#> DISAGREED WITH PLATFORM OR POLICY - TO: 3, 4
#>
#> ================================================================================
#> V480021B: 'XWHY DID NOT VT FOR HIM 2'
#> --------------------------------------------------------------------------------
#> DISAGREED WITH PLATFORM OR POLICY - TO: 3, 4
#>
#> ================================================================================
#> V480033A: 'ISSUES CONNECTED W TRMN 1'
#> --------------------------------------------------------------------------------
#> RENT CONTROL: 1, 16, 31, 51, 66, 81
#> PRICE CONTROL: 2, 17, 32, 52, 67, 82
#> TAFT-HARTLEY: 3, 18, 33, 53, 68, 83
#> FARM PRICES AND SUPPORT: 4, 19, 34, 54, 69, 84
#> LOWER INCOME TAX: 5, 20, 35, 55, 70, 85
#> CIVIL RIGHTS: 6, 21, 36, 56, 71, 86
#> BALANCE BUDGET: 7, 22, 37, 57, 72, 87
#> (GOVERNMENT) HOUSING: 8, 23, 38, 58, 73, 88
#> DEFENSE ACTIVITY: 9, 24, 39, 59, 74, 89
#> GOVERNMENT ATOMIC CONTROL: 10, 25, 40, 60, 75, 90
#> NEW DEAL: 11, 26, 41, 61, 76, 91
#> MARSHALL PLAN: 12, 27, 42, 62, 77, 92
#> FIRM RUSSIAN POLICY: 13, 28, 43, 63, 78, 93
#> HELP ISRAEL (PALESTINE): 14, 29, 44, 64, 79, 94
#> PROMOTE PEACE: 15, 30, 45, 65, 80, 95
#>
#> ================================================================================
#> V480033B: 'ISSUES CONNECTED W TRMN 2'
#> --------------------------------------------------------------------------------
#> RENT CONTROL: 1, 16, 31, 51, 66, 81
#> PRICE CONTROL: 2, 17, 32, 52, 67, 82
#> TAFT-HARTLEY: 3, 18, 33, 53, 68, 83
#> FARM PRICES AND SUPPORT: 4, 19, 34, 54, 69, 84
#> LOWER INCOME TAX: 5, 20, 35, 55, 70, 85
#> CIVIL RIGHTS: 6, 21, 36, 56, 71, 86
#> BALANCE BUDGET: 7, 22, 37, 57, 72, 87
#> (GOVERNMENT) HOUSING: 8, 23, 38, 58, 73, 88
#> DEFENSE ACTIVITY: 9, 24, 39, 59, 74, 89
#> GOVERNMENT ATOMIC CONTROL: 10, 25, 40, 60, 75, 90
#> NEW DEAL: 11, 26, 41, 61, 76, 91
#> MARSHALL PLAN: 12, 27, 42, 62, 77, 92
#> FIRM RUSSIAN POLICY: 13, 28, 43, 63, 78, 93
#> HELP ISRAEL (PALESTINE): 14, 29, 44, 64, 79, 94
#> PROMOTE PEACE: 15, 30, 45, 65, 80, 95
#>
#> ================================================================================
#> V480034A: 'ISSUES CONNECTED W DEWEY 1'
#> --------------------------------------------------------------------------------
#> RENT CONTROL: 1, 16, 31, 51, 66, 81
#> PRICE CONTROL: 2, 17, 32, 52, 67, 82
#> TAFT-HARTLEY: 3, 18, 33, 53, 68, 83
#> FARM PRICES AND SUPPORT: 4, 19, 34, 54, 69, 84
#> LOWER INCOME TAX: 5, 20, 35, 55, 70, 85
#> CIVIL RIGHTS: 6, 21, 36, 56, 71, 86
#> BALANCE BUDGET: 7, 22, 37, 57, 72, 87
#> (GOVERNMENT) HOUSING: 8, 23, 38, 58, 73, 88
#> DEFENSE ACTIVITY: 9, 24, 39, 59, 74, 89
#> GOVERNMENT ATOMIC CONTROL: 10, 25, 40, 60, 75, 90
#> NEW DEAL: 11, 26, 41, 61, 76, 91
#> MARSHALL PLAN: 12, 27, 42, 62, 77, 92
#> FIRM RUSSIAN POLICY: 13, 28, 43, 63, 78, 93
#> HELP ISRAEL (PALESTINE): 14, 29, 44, 64, 79, 94
#> PROMOTE PEACE: 15, 30, 45, 65, 80, 95
#>
#> ================================================================================
#> V480034B: 'ISSUES CONNECTED W DEWEY 2'
#> --------------------------------------------------------------------------------
#> RENT CONTROL: 1, 16, 31, 51, 66, 81
#> PRICE CONTROL: 2, 17, 32, 52, 67, 82
#> TAFT-HARTLEY: 3, 18, 33, 53, 68, 83
#> FARM PRICES AND SUPPORT: 4, 19, 34, 54, 69, 84
#> LOWER INCOME TAX: 5, 20, 35, 55, 70, 85
#> CIVIL RIGHTS: 6, 21, 36, 56, 71, 86
#> BALANCE BUDGET: 7, 22, 37, 57, 72, 87
#> (GOVERNMENT) HOUSING: 8, 23, 38, 58, 73, 88
#> DEFENSE ACTIVITY: 9, 24, 39, 59, 74, 89
#> GOVERNMENT ATOMIC CONTROL: 10, 25, 40, 60, 75, 90
#> NEW DEAL: 11, 26, 41, 61, 76, 91
#> MARSHALL PLAN: 12, 27, 42, 62, 77, 92
#> FIRM RUSSIAN POLICY: 13, 28, 43, 63, 78, 93
#> HELP ISRAEL (PALESTINE): 14, 29, 44, 64, 79, 94
#> PROMOTE PEACE: 15, 30, 45, 65, 80, 95