Skip to contents

Catch-at-age for Yellow Perch from Chequamegon Bay, Lake Superior.

Source: R/YPerchCB1.R
YPerchCB1.Rd

Catch-at-age for Yellow Perch (Perca flavescens) from Chequamegon Bay, Lake Superior, 1973-1988.

Format

A data frame with 39 observations on the following 5 variables.

age

Age in that capture year (1973-1988).

year73

Number of fish at each age in capture year 1973.

year74

Number of fish at each age in capture year 1974.

year75

Number of fish at each age in capture year 1975.

year76

Number of fish at each age in capture year 1976.

year77

Number of fish at each age in capture year 1977.

year78

Number of fish at each age in capture year 1978.

year79

Number of fish at each age in capture year 1979.

year80

Number of fish at each age in capture year 1980.

year81

Number of fish at each age in capture year 1981.

year82

Number of fish at each age in capture year 1982.

year83

Number of fish at each age in capture year 1983.

year84

Number of fish at each age in capture year 1984.

year85

Number of fish at each age in capture year 1985.

year86

Number of fish at each age in capture year 1986.

year87

Number of fish at each age in capture year 1987.

year88

Number of fish at each age in capture year 1988.

Source

From Table 1 in Bronte, C.R., J.H. Selgeby, D.V.Swedberg. 1993. Dynamics of a yellow perch population in Western Lake Superior. North American Journal of Fisheries Management 13:511-523. CSV file

Topic(s)

  • Mortality

  • Catch curve

Examples

data(YPerchCB1)
str(YPerchCB1)
#> 'data.frame':	10 obs. of  17 variables:
#>  $ age   : int  0 1 2 3 4 5 6 7 8 9
#>  $ year73: int  1 56 61 145 19 11 8 2 2 0
#>  $ year74: int  247 240 120 51 144 34 8 15 0 2
#>  $ year75: int  898 27 60 23 10 10 19 1 4 1
#>  $ year76: int  648 531 57 76 21 6 4 0 1 0
#>  $ year77: int  3993 352 386 153 33 23 6 6 0 0
#>  $ year78: int  34 805 396 213 68 24 4 8 0 0
#>  $ year79: int  1261 217 508 205 109 25 20 4 2 0
#>  $ year80: int  1443 753 56 109 25 10 6 0 0 0
#>  $ year81: int  694 257 23 17 29 14 9 1 1 1
#>  $ year82: int  94 186 750 104 31 17 13 3 1 0
#>  $ year83: int  6 395 283 201 27 21 6 0 0 2
#>  $ year84: int  119 243 229 441 167 52 5 7 4 1
#>  $ year85: int  33 29 323 151 42 23 11 1 0 0
#>  $ year86: int  14 165 179 234 33 45 14 12 3 2
#>  $ year87: int  85 374 70 38 35 14 11 0 2 0
#>  $ year88: int  1282 180 165 85 25 12 14 17 1 0
head(YPerchCB1)
#>   age year73 year74 year75 year76 year77 year78 year79 year80 year81 year82
#> 1   0      1    247    898    648   3993     34   1261   1443    694     94
#> 2   1     56    240     27    531    352    805    217    753    257    186
#> 3   2     61    120     60     57    386    396    508     56     23    750
#> 4   3    145     51     23     76    153    213    205    109     17    104
#> 5   4     19    144     10     21     33     68    109     25     29     31
#> 6   5     11     34     10      6     23     24     25     10     14     17
#>   year83 year84 year85 year86 year87 year88
#> 1      6    119     33     14     85   1282
#> 2    395    243     29    165    374    180
#> 3    283    229    323    179     70    165
#> 4    201    441    151    234     38     85
#> 5     27    167     42     33     35     25
#> 6     21     52     23     45     14     12
max.n <- max(YPerchCB1[,-1])  # maximum catch
op <- par(mfrow=c(4,4),mar=c(3.5,3.5,1,1),mgp=c(2,0.75,0))
plot(log(year73)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1973")
plot(log(year74)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1974")
plot(log(year75)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1975")
plot(log(year76)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1976")
plot(log(year77)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1977")
plot(log(year78)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1978")
plot(log(year79)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1979")
plot(log(year80)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1980")
plot(log(year81)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1981")
plot(log(year82)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1982")
plot(log(year83)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1983")
plot(log(year84)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1984")
plot(log(year85)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1985")
plot(log(year86)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1986")
plot(log(year87)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1987")
plot(log(year88)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1988")

par(op)
op <- par(mfrow=c(1,2),mar=c(3.5,3.5,1,1),mgp=c(2,0.75,0))

## plot for 1973 and 1982 year-classes (be very careful)
# get 1973 year-class as diagonal for ages 0-9 and years 1973-1982
yc73 <- diag(as.matrix(YPerchCB1[,2:11]))
plot(log(yc73)~YPerchCB1$age,main="1973 Year-Class")
yc82 <- diag(as.matrix(YPerchCB1[1:7,11:17]))
plot(log(yc82)~YPerchCB1$age[1:7],main="1982 Year-Class")