Shear coordinates

Apply shear transformation to a shape.

Usage

coo_shear_x(x, ..., .cols = NULL, .ldk_col = NULL)

coo_shear_y(x, ..., .cols = NULL, .ldk_col = NULL)

Arguments

x

A matrix (nx2), list of matrices, or tibble with coo columns.

...

Additional arguments (reserved for future use).

.cols

Column name(s) to process when x is a tibble. If NULL, automatically detects columns containing coo objects.

k

Numeric. Shear factor. Default is 1.

Value

• If x is a single matrix: returns the sheared matrix

• If x is a list: returns a list of sheared matrices

• If x is a tibble: returns the tibble with specified coo columns sheared

Details

• coo_shear_x(): shear in x direction

• coo_shear_y(): shear in y direction

See also

coo_rotate() for rotation; coo_flip_xaxis() for flipping; coo_affine() for custom transformations

Examples

# Shear in x direction
coo_shear_x(shapes$cat, k = 0.5)
#> <xy [120 x 2]>
#>       [,1]  [,2] 
#>  [1,] 200.0 162.0
#>  [2,] 196.0 154.0
#>  [3,] 200.0 156.0
#>  [4,] 206.0 157.0
#>  [5,] 209.0 152.5
#>  [6,] ...   ...  
#>  [7,] 219.0 154.5
#>  [8,] 213.0 153.5
#>  [9,] 208.0 157.0
#> [10,] 204.0 161.0
#> [11,] 202.0 166.0

# Shear in y direction
coo_shear_y(bot$coo, k = 0.3)
#> $brahma
#> <xy [138 x 2]>
#>       [,1]  [,2] 
#>  [1,] 205.3 561.0
#>  [2,] 202.0 540.0
#>  [3,] 198.7 529.0
#>  [4,] 195.4 508.0
#>  [5,] 192.1 487.0
#>  [6,] ...   ...  
#>  [7,] 230.8 656.0
#>  [8,] 226.5 645.0
#>  [9,] 220.2 624.0
#> [10,] 214.9 603.0
#> [11,] 212.9 593.0
#> 
#> $caney
#> <xy [168 x 2]>
#>       [,1]  [,2] 
#>  [1,] 213.5 535.0
#>  [2,] 210.5 525.0
#>  [3,] 205.5 505.0
#>  [4,] 201.5 495.0
#>  [5,] 199.5 485.0
#>  [6,] ...   ...  
#>  [7,] 260.8 616.0
#>  [8,] 245.8 596.0
#>  [9,] 237.5 585.0
#> [10,] 231.5 575.0
#> [11,] 221.5 555.0
#> 
#> $chimay
#> <xy [189 x 2]>
#>       [,1]  [,2] 
#>  [1,] 148.9 333.0
#>  [2,] 146.5 325.0
#>  [3,] 144.4 318.0
#>  [4,] 143.0 310.0
#>  [5,] 140.6 302.0
#>  [6,] ...   ...  
#>  [7,] 172.7 379.0
#>  [8,] 165.3 371.0
#>  [9,] 160.2 364.0
#> [10,] 155.8 356.0
#> [11,] 152.4 348.0
#> 
#> $corona
#> <xy [129 x 2]>
#>       [,1]  [,2] 
#>  [1,] 218.8 426.0
#>  [2,] 215.8 416.0
#>  [3,] 208.5 395.0
#>  [4,] 206.5 385.0
#>  [5,] 203.2 374.0
#>  [6,] ...   ...  
#>  [7,] 269.8 506.0
#>  [8,] 255.8 486.0
#>  [9,] 248.1 477.0
#> [10,] 240.8 466.0
#> [11,] 228.1 447.0
#> 
#> $deusventrue
#> <xy [152 x 2]>
#>       [,1]  [,2] 
#>  [1,] 218.3 481.0
#>  [2,] 211.6 472.0
#>  [3,] 198.2 454.0
#>  [4,] 192.5 445.0
#>  [5,] 179.5 425.0
#>  [6,] ...   ...  
#>  [7,] 266.5 555.0
#>  [8,] 260.5 545.0
#>  [9,] 248.1 527.0
#> [10,] 242.4 518.0
#> [11,] 232.0 500.0
#> 
#> $duvel
#> <xy [161 x 2]>
#>       [,1]  [,2] 
#>  [1,] 155.5 315.0
#>  [2,] 152.2 304.0
#>  [3,] 148.9 293.0
#>  [4,] 148.9 293.0
#>  [5,] 145.6 282.0
#>  [6,] ...   ...  
#>  [7,] 184.7 369.0
#>  [8,] 176.4 358.0
#>  [9,] 169.4 348.0
#> [10,] 169.4 348.0
#> [11,] 164.1 337.0
#> 
#> $franziskaner
#> <xy [124 x 2]>
#>       [,1]  [,2] 
#>  [1,] 185.7 439.0
#>  [2,] 179.4 418.0
#>  [3,] 176.4 408.0
#>  [4,] 170.7 389.0
#>  [5,] 167.7 379.0
#>  [6,] ...   ...  
#>  [7,] 219.6 532.0
#>  [8,] 212.3 511.0
#>  [9,] 207.3 501.0
#> [10,] 198.0 480.0
#> [11,] 195.0 470.0
#> 
#> $grimbergen
#> <xy [126 x 2]>
#>       [,1]  [,2] 
#>  [1,] 163.2 404.0
#>  [2,] 158.2 394.0
#>  [3,] 151.9 373.0
#>  [4,] 148.6 362.0
#>  [5,] 145.6 352.0
#>  [6,] ...   ...  
#>  [7,] 220.1 487.0
#>  [8,] 200.1 467.0
#>  [9,] 190.8 456.0
#> [10,] 183.8 446.0
#> [11,] 171.5 425.0
#> 
#> $guiness
#> <xy [183 x 2]>
#>       [,1]  [,2] 
#>  [1,] 184.5 385.0
#>  [2,] 182.1 377.0
#>  [3,] 179.7 369.0
#>  [4,] 177.0 360.0
#>  [5,] 172.2 344.0
#>  [6,] ...   ...  
#>  [7,] 205.6 442.0
#>  [8,] 200.9 433.0
#>  [9,] 192.4 418.0
#> [10,] 191.0 410.0
#> [11,] 189.3 401.0
#> 
#> $hoegardeen
#> <xy [193 x 2]>
#>       [,1]  [,2] 
#>  [1,] 205.2 544.0
#>  [2,] 199.3 531.0
#>  [3,] 195.7 519.0
#>  [4,] 191.8 506.0
#>  [5,] 187.9 493.0
#>  [6,] ...   ...  
#>  [7,] 243.7 619.0
#>  [8,] 235.8 606.0
#>  [9,] 229.2 594.0
#> [10,] 221.3 581.0
#> [11,] 216.4 568.0
#> 
#> $jupiler
#> <xy [156 x 2]>
#>       [,1]  [,2] 
#>  [1,] 209.5 515.0
#>  [2,] 204.3 501.0
#>  [3,] 200.4 488.0
#>  [4,] 196.2 474.0
#>  [5,] 192.0 460.0
#>  [6,] ...   ...  
#>  [7,] 253.1 597.0
#>  [8,] 243.9 583.0
#>  [9,] 237.0 570.0
#> [10,] 228.8 556.0
#> [11,] 221.6 542.0
#> 
#> $kingfisher
#> <xy [182 x 2]>
#>       [,1]  [,2] 
#>  [1,] 186.2 384.0
#>  [2,] 183.2 374.0
#>  [3,] 180.5 365.0
#>  [4,] 177.5 355.0
#>  [5,] 174.5 345.0
#>  [6,] ...   ...  
#>  [7,] 213.6 442.0
#>  [8,] 207.9 433.0
#>  [9,] 202.9 423.0
#> [10,] 196.9 413.0
#> [11,] 193.9 403.0
#> 
#> $latrappe
#> <xy [136 x 2]>
#>       [,1]  [,2] 
#>  [1,] 142.7 389.0
#>  [2,] 138.1 377.0
#>  [3,] 134.2 364.0
#>  [4,] 130.6 352.0
#>  [5,] 126.7 339.0
#>  [6,] ...   ...  
#>  [7,] 167.2 464.0
#>  [8,] 160.3 451.0
#>  [9,] 157.7 439.0
#> [10,] 153.8 426.0
#> [11,] 150.2 414.0
#> 
#> $lindemanskriek
#> <xy [176 x 2]>
#>       [,1]  [,2] 
#>  [1,] 188.1 427.0
#>  [2,] 185.7 419.0
#>  [3,] 176.2 404.0
#>  [4,] 172.5 395.0
#>  [5,] 170.1 387.0
#>  [6,] ...   ...  
#>  [7,] 222.8 486.0
#>  [8,] 218.4 478.0
#>  [9,] 212.7 469.0
#> [10,] 208.3 461.0
#> [11,] 198.2 444.0
#> 
#> $nicechouffe
#> <xy [146 x 2]>
#>       [,1]  [,2] 
#>  [1,] 190.3 361.0
#>  [2,] 186.9 353.0
#>  [3,] 177.8 336.0
#>  [4,] 175.1 327.0
#>  [5,] 171.7 319.0
#>  [6,] ...   ...  
#>  [7,] 221.4 418.0
#>  [8,] 216.0 410.0
#>  [9,] 211.3 401.0
#> [10,] 207.2 394.0
#> [11,] 198.4 378.0
#> 
#> $pecheresse
#> <xy [129 x 2]>
#>       [,1]  [,2] 
#>  [1,] 211.5 495.0
#>  [2,] 203.8 476.0
#>  [3,] 201.1 467.0
#>  [4,] 194.1 447.0
#>  [5,] 186.4 428.0
#>  [6,] ...   ...  
#>  [7,] 260.0 580.0
#>  [8,] 254.0 570.0
#>  [9,] 243.6 552.0
#> [10,] 232.9 533.0
#> [11,] 228.2 524.0
#> 
#> $sierranevada
#> <xy [176 x 2]>
#>       [,1]  [,2] 
#>  [1,] 164.5 345.0
#>  [2,] 160.9 333.0
#>  [3,] 160.9 333.0
#>  [4,] 157.0 320.0
#>  [5,] 153.4 308.0
#>  [6,] ...   ...  
#>  [7,] 185.1 407.0
#>  [8,] 179.2 394.0
#>  [9,] 173.6 382.0
#> [10,] 172.0 370.0
#> [11,] 172.0 370.0
#> 
#> $tanglefoot
#> <xy [174 x 2]>
#>       [,1]  [,2] 
#>  [1,] 158.1 367.0
#>  [2,] 155.7 359.0
#>  [3,] 153.3 351.0
#>  [4,] 148.5 335.0
#>  [5,] 147.1 327.0
#>  [6,] ...   ...  
#>  [7,] 178.9 423.0
#>  [8,] 173.5 415.0
#>  [9,] 170.1 407.0
#> [10,] 164.3 391.0
#> [11,] 161.9 383.0
#> 
#> $tauro
#> <xy [174 x 2]>
#>       [,1]  [,2] 
#>  [1,] 210.5 515.0
#>  [2,] 204.9 503.0
#>  [3,] 201.3 491.0
#>  [4,] 197.4 478.0
#>  [5,] 193.8 466.0
#>  [6,] ...   ...  
#>  [7,] 247.1 587.0
#>  [8,] 240.5 575.0
#>  [9,] 231.9 563.0
#> [10,] 226.3 551.0
#> [11,] 220.4 538.0
#> 
#> $westmalle
#> <xy [141 x 2]>
#>       [,1]  [,2] 
#>  [1,] 188.2 394.0
#>  [2,] 185.8 386.0
#>  [3,] 177.7 369.0
#>  [4,] 175.3 361.0
#>  [5,] 169.2 344.0
#>  [6,] ...   ...  
#>  [7,] 224.3 461.0
#>  [8,] 218.6 452.0
#>  [9,] 210.8 436.0
#> [10,] 204.1 427.0
#> [11,] 197.3 411.0
#> 
#> $amrut
#> <xy [191 x 2]>
#>       [,1]  [,2] 
#>  [1,] 189.3 441.0
#>  [2,] 186.3 431.0
#>  [3,] 183.3 421.0
#>  [4,] 180.3 411.0
#>  [5,] 177.3 401.0
#>  [6,] ...   ...  
#>  [7,] 205.3 501.0
#>  [8,] 204.3 491.0
#>  [9,] 201.3 481.0
#> [10,] 198.3 471.0
#> [11,] 195.3 461.0
#> 
#> $ballantines
#> <xy [146 x 2]>
#>       [,1]  [,2] 
#>  [1,] 145.1 357.0
#>  [2,] 140.3 341.0
#>  [3,] 137.9 333.0
#>  [4,] 133.4 318.0
#>  [5,] 131.0 310.0
#>  [6,] ...   ...  
#>  [7,] 166.4 428.0
#>  [8,] 161.6 412.0
#>  [9,] 159.2 404.0
#> [10,] 154.4 388.0
#> [11,] 152.3 381.0
#> 
#> $bushmills
#> <xy [165 x 2]>
#>       [,1]  [,2] 
#>  [1,] 208.8 456.0
#>  [2,] 204.3 441.0
#>  [3,] 199.5 425.0
#>  [4,] 199.5 425.0
#>  [5,] 195.0 410.0
#>  [6,] ...   ...  
#>  [7,] 229.9 533.0
#>  [8,] 225.4 518.0
#>  [9,] 220.6 502.0
#> [10,] 220.6 502.0
#> [11,] 216.1 487.0
#> 
#> $chivas
#> <xy [164 x 2]>
#>       [,1]  [,2] 
#>  [1,] 164.1 437.0
#>  [2,] 159.7 429.0
#>  [3,] 152.6 412.0
#>  [4,] 150.2 404.0
#>  [5,] 145.4 388.0
#>  [6,] ...   ...  
#>  [7,] 231.6 502.0
#>  [8,] 221.5 495.0
#>  [9,] 200.4 478.0
#> [10,] 192.0 470.0
#> [11,] 175.9 453.0
#> 
#> $dalmore
#> <xy [155 x 2]>
#>       [,1]  [,2] 
#>  [1,] 163.3 371.0
#>  [2,] 154.7 359.0
#>  [3,] 147.8 346.0
#>  [4,] 142.2 334.0
#>  [5,] 138.6 322.0
#>  [6,] ...   ...  
#>  [7,] 231.0 430.0
#>  [8,] 231.0 430.0
#>  [9,] 214.7 419.0
#> [10,] 199.4 408.0
#> [11,] 185.8 396.0
#> 
#> $famousgrouse
#> <xy [169 x 2]>
#>       [,1]  [,2] 
#>  [1,] 192.9 313.0
#>  [2,] 189.9 303.0
#>  [3,] 187.2 294.0
#>  [4,] 184.2 284.0
#>  [5,] 184.2 284.0
#>  [6,] ...   ...  
#>  [7,] 205.3 361.0
#>  [8,] 202.3 351.0
#>  [9,] 202.3 351.0
#> [10,] 199.6 342.0
#> [11,] 196.6 332.0
#> 
#> $glendronach
#> <xy [197 x 2]>
#>       [,1]  [,2] 
#>  [1,] 203.5 435.0
#>  [2,] 199.9 423.0
#>  [3,] 197.3 411.0
#>  [4,] 197.3 411.0
#>  [5,] 193.7 399.0
#>  [6,] ...   ...  
#>  [7,] 220.5 495.0
#>  [8,] 216.9 483.0
#>  [9,] 214.3 471.0
#> [10,] 214.3 471.0
#> [11,] 210.7 459.0
#> 
#> $glenmorangie
#> <xy [179 x 2]>
#>       [,1]  [,2] 
#>  [1,] 208.4 518.0
#>  [2,] 204.3 501.0
#>  [3,] 204.3 501.0
#>  [4,] 199.5 485.0
#>  [5,] 195.4 468.0
#>  [6,] ...   ...  
#>  [7,] 241.7 599.0
#>  [8,] 233.2 584.0
#>  [9,] 224.1 567.0
#> [10,] 218.0 550.0
#> [11,] 218.0 550.0
#> 
#> $highlandpark
#> <xy [169 x 2]>
#>       [,1]  [,2] 
#>  [1,] 153.3 371.0
#>  [2,] 149.1 357.0
#>  [3,] 149.1 357.0
#>  [4,] 144.9 343.0
#>  [5,] 140.7 329.0
#>  [6,] ...   ...  
#>  [7,] 173.3 441.0
#>  [8,] 170.1 427.0
#>  [9,] 165.9 413.0
#> [10,] 161.7 399.0
#> [11,] 161.7 399.0
#> 
#> $jackdaniels
#> <xy [150 x 2]>
#>       [,1]  [,2] 
#>  [1,] 187.2 414.0
#>  [2,] 183.3 401.0
#>  [3,] 179.4 388.0
#>  [4,] 175.5 375.0
#>  [5,] 171.6 362.0
#>  [6,] ...   ...  
#>  [7,] 217.9 493.0
#>  [8,] 211.7 479.0
#>  [9,] 204.8 466.0
#> [10,] 199.9 453.0
#> [11,] 197.0 440.0
#> 
#> $jb
#> <xy [174 x 2]>
#>       [,1]  [,2] 
#>  [1,] 202.3 531.0
#>  [2,] 199.0 520.0
#>  [3,] 195.0 510.0
#>  [4,] 188.4 488.0
#>  [5,] 186.1 477.0
#>  [6,] ...   ...  
#>  [7,] 223.8 606.0
#>  [8,] 218.5 595.0
#>  [9,] 217.5 585.0
#> [10,] 211.9 563.0
#> [11,] 208.6 552.0
#> 
#> $johnniewalker
#> <xy [168 x 2]>
#>       [,1]  [,2] 
#>  [1,] 185.5 175.0
#>  [2,] 184.3 171.0
#>  [3,] 183.1 167.0
#>  [4,] 181.9 163.0
#>  [5,] 180.5 155.0
#>  [6,] ...   ...  
#>  [7,] 193.9 203.0
#>  [8,] 192.7 199.0
#>  [9,] 190.3 191.0
#> [10,] 189.1 187.0
#> [11,] 187.9 183.0
#> 
#> $magallan
#> <xy [141 x 2]>
#>       [,1]  [,2] 
#>  [1,] 197.1 397.0
#>  [2,] 192.6 382.0
#>  [3,] 192.5 375.0
#>  [4,] 188.3 361.0
#>  [5,] 184.8 346.0
#>  [6,] ...   ...  
#>  [7,] 213.6 462.0
#>  [8,] 211.5 455.0
#>  [9,] 207.3 441.0
#> [10,] 204.8 426.0
#> [11,] 202.7 419.0
#> 
#> $makersmark
#> <xy [177 x 2]>
#>       [,1]  [,2] 
#>  [1,] 160.6 432.0
#>  [2,] 149.0 420.0
#>  [3,] 138.4 408.0
#>  [4,] 138.4 408.0
#>  [5,] 131.2 394.0
#>  [6,] ...   ...  
#>  [7,] 225.1 487.0
#>  [8,] 215.9 473.0
#>  [9,] 206.2 464.0
#> [10,] 206.2 464.0
#> [11,] 189.2 454.0
#> 
#> $oban
#> <xy [179 x 2]>
#>       [,1]  [,2] 
#>  [1,] 211.1 457.0
#>  [2,] 208.4 448.0
#>  [3,] 203.3 431.0
#>  [4,] 200.9 423.0
#>  [5,] 198.2 414.0
#>  [6,] ...   ...  
#>  [7,] 227.1 517.0
#>  [8,] 225.4 508.0
#>  [9,] 223.0 500.0
#> [10,] 220.3 491.0
#> [11,] 215.2 474.0
#> 
#> $oldpotrero
#> <xy [131 x 2]>
#>       [,1]  [,2] 
#>  [1,] 175.1 307.0
#>  [2,] 166.7 299.0
#>  [3,] 158.3 291.0
#>  [4,] 145.2 274.0
#>  [5,] 139.5 265.0
#>  [6,] ...   ...  
#>  [7,] 228.8 366.0
#>  [8,] 224.4 358.0
#>  [9,] 216.7 349.0
#> [10,] 200.9 333.0
#> [11,] 192.2 324.0
#> 
#> $redbreast
#> <xy [177 x 2]>
#>       [,1]  [,2] 
#>  [1,] 174.9 233.0
#>  [2,] 171.4 228.0
#>  [3,] 168.2 224.0
#>  [4,] 162.2 214.0
#>  [5,] 161.0 210.0
#>  [6,] ...   ...  
#>  [7,] 215.3 261.0
#>  [8,] 209.1 257.0
#>  [9,] 202.9 253.0
#> [10,] 191.8 246.0
#> [11,] 185.6 242.0
#> 
#> $tamdhu
#> <xy [176 x 2]>
#>       [,1]  [,2] 
#>  [1,] 214.6 552.0
#>  [2,] 211.0 540.0
#>  [3,] 207.1 527.0
#>  [4,] 203.5 515.0
#>  [5,] 199.9 503.0
#>  [6,] ...   ...  
#>  [7,] 233.5 625.0
#>  [8,] 227.9 613.0
#>  [9,] 225.3 601.0
#> [10,] 222.7 589.0
#> [11,] 220.1 577.0
#> 
#> $wildturkey
#> <xy [185 x 2]>
#>       [,1]  [,2] 
#>  [1,] 188.7 569.0
#>  [2,] 184.5 555.0
#>  [3,] 180.3 541.0
#>  [4,] 176.1 527.0
#>  [5,] 171.9 513.0
#>  [6,] ...   ...  
#>  [7,] 215.3 651.0
#>  [8,] 209.4 638.0
#>  [9,] 202.5 625.0
#> [10,] 198.3 611.0
#> [11,] 194.1 597.0
#> 
#> $yoichi
#> <xy [123 x 2]>
#>       [,1]  [,2] 
#>  [1,] 184.2 384.0
#>  [2,] 179.7 369.0
#>  [3,] 175.5 355.0
#>  [4,] 171.0 340.0
#>  [5,] 166.5 325.0
#>  [6,] ...   ...  
#>  [7,] 205.1 457.0
#>  [8,] 203.0 450.0
#>  [9,] 198.5 435.0
#> [10,] 194.3 421.0
#> [11,] 190.8 406.0
#> 
#> attr(,"class")
#> [1] "out"  "coo"  "list"