abbreviate

R Base 3.6.2 🇮🇩 Bahasa Indonesia

Singkat string menjadi setidaknya karakter dengan panjang minimum, sehingga tetap unik (jika memang demikian), kecuali strict = TRUE.

Syntax

abbreviate(names.arg, minlength = 4, use.classes = TRUE,
           dot = FALSE, strict = FALSE,
           method = c("left.kept", "both.sides"), named = TRUE)

Arguments

Parameter	Deskripsi
`names.arg`	a character vector of names to be abbreviated, or an object to be coerced to a character vector by as.character.
`minlength`	the minimum length of the abbreviations.
`use.classes`	logical: should lowercase characters be removed first?
`dot`	logical: should a dot (".") be appended?
`strict`	logical: should minlength be observed strictly? Note that setting strict = TRUE may return non-unique strings.
`method`	a character string specifying the method used with default "left.kept", see ‘Details’ below. Partial matches allowed.
`named`	logical: should names (with original vector) be returned.

Return Value

Vektor karakter berisi singkatan untuk string karakter dalam argumen pertamanya. Duplikat pada nama asli.arg akan diberi singkatan yang sama. Jika ada elemen yang tidak diduplikasi yang memiliki singkatan panjang minimum yang sama, jika method = "both.sides" algoritma dasar internal abreviate() diterapkan pada string yang dibalik secara karakter; jika masih ada singkatan yang terduplikasi dan jika strict = FALSE seperti default, minlength bertambah satu dan singkatan baru

Details

Algoritme default (metode = "left.kept") yang digunakan mirip dengan S. Untuk string tunggal, cara kerjanya sebagai berikut. Spasi pertama di ujung senar dihilangkan. Kemudian (jika perlu) ruang lainnya dihilangkan. Selanjutnya, huruf vokal kecil dihilangkan diikuti dengan konsonan huruf kecil. Terakhir jika singkatannya masih lebih panjang dari minlength huruf besar dan simbolnya dihilangkan. Karakter selalu dihilangkan dari ujung string terlebih dahulu. Jika elemen nama.arg mengandung lebih dari satu kata (kata dipisahkan dengan spasi) maka setidaknya satu huruf dari setiap kata akan dipertahankan. Nilai yang hilang (NA) tidak berubah. Jika use.classes adalah FALSE maka satu-satunya perbedaan adalah antara huruf dan spasi.

Contoh

Example

# NOT RUN {
x <- c("abcd", "efgh", "abce")
abbreviate(x, 2)
abbreviate(x, 2, strict = TRUE) # >> 1st and 3rd are == "ab"

(st.abb <- abbreviate(state.name, 2))
stopifnot(identical(unname(st.abb),
           abbreviate(state.name, 2, named=FALSE)))
table(nchar(st.abb)) # out of 50, 3 need 4 letters :
as <- abbreviate(state.name, 3, strict = TRUE)
as[which(as == "Mss")]
# }
# NOT RUN {
## and without distinguishing vowels:
st.abb2 <- abbreviate(state.name, 2, FALSE)
cbind(st.abb, st.abb2)[st.abb2 != st.abb, ]

## method = "both.sides" helps:  no 4-letters, and only 4 3-letters:
st.ab2 <- abbreviate(state.name, 2, method = "both")
table(nchar(st.ab2))
## Compare the two methods:
cbind(st.abb, st.ab2)
# }