plot3logit (version 3.1.4)

multifield3logit: Multiple trilogit fields

Description

Methods of S3 class multifield3logit handle multiple fields3logit objects simultaneously and permit new multifield3logit objects to be easily created by means of the sum operator "+".

Usage

multifield3logit(x, ...)
# S3 method for Hfield3logit
+(x, y)
# S3 method for multifield3logit
print(x, maxitems = 10, ...)
# S3 method for multifield3logit
plot(x, y = NULL, add = FALSE, col = NA, legend = TRUE, ...)
# S3 method for multifield3logit
as_tibble(x, ..., wide = TRUE)
# S3 method for multifield3logit
as.data.frame(x, ..., wide = TRUE)
# S3 method for multifield3logit
fortify(model, data, ..., wide = TRUE)
# S3 method for multifield3logit
tidy(x, ..., wide = TRUE)
# S3 method for multifield3logit
labels(object, ...)
# S3 method for multifield3logit
labels(object) <- value
# S3 method for multifield3logit
[(x, i, drop = TRUE)
# S3 method for multifield3logit
[(x, i) <- value

Value

S3 object of class multifield3logit structured as a named list.

Arguments

x, y, model, object

object of class field3logit or multifield3logit.

...

other arguments passed to or from other methods.

maxitems

maximum number of items to be enumerated when an object of class multifield3logit is printed.

add

logical argument which specifies whether the field should be added to an existing plot (add = TRUE) or a new ternary plot should be drawn (add = FALSE).

col, legend

graphical parameters if Ternary package is used.

wide

it allows to choose whether as.data.frame, as_tibble, fortify and tidy should return a data.frame or a tibble in wide (default) or long form.

data

not used. Argument included only for interface compatibility with the generic fortify.

value

value to be assigned.

i

index of the field3logit object to be selected.

drop

if TRUE, a field3logit object is returned if the subsetted multifield3logit object has length one.

See Also

field3logit().

Examples

# \donttest{
data(cross_1year)

mod0 <- nnet::multinom(employment_sit ~ ., data = cross_1year)
mod0

field_Sdur <- field3logit(mod0, 'durationShort',
  label = 'Short duration')
field_Hfgr <- field3logit(mod0, 'finalgradeHigh',
  label = 'High final grade')

gg3logit(field_Sdur + field_Hfgr) +
  stat_field3logit()
  facet_wrap(~ label)

refpoint <- list(c(0.7, 0.15, 0.15))

field_Sdur <- field3logit(mod0, 'durationShort',
  label = 'Short duration', p0 = refpoint, narrows = 1)
field_Ldur <- field3logit(mod0, 'durationLong',
  label = 'Long duration', p0 = refpoint, narrows = 1)
field_Hfgr <- field3logit(mod0, 'finalgradeHigh',
  label = 'High final grade', p0 = refpoint, narrows = 1)
field_Lfgr <- field3logit(mod0, 'finalgradeLow',
  label = 'Low final grade', p0 = refpoint, narrows = 1)

mfields <- field_Sdur + field_Ldur  + field_Lfgr + field_Hfgr
mfields

gg3logit(mfields) +
  stat_field3logit(aes(colour = label)) +
  theme_zoom_L(0.45)
# }